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ABSTRACT 

Presents  computer  programs,  written  in  Fortran  IV,  for 
analysis  of  inventory  data,  computation  of  actual  and  optimum 
growing  stocks  and  allowable  cuts,  and  computation  of  other  values 
needed  for  forest  management  planning.     Computed  volumes  and  areas 
are  summarized  in  a  timber  management  guide  that  replaces  a 
conventional  management  plan.     Effects  of  cultural  operations  and 
other  changes  are  accounted  for  in  computation  of  both  actual  and 
optimum  conditions. 

Key  Words:     Allowable  cut,  forest  management,  stand  yield  tables, 
timber  management. 
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Computer-Assisted  Timber  Inventory  Analysis 
and  Management  Planning 

Clifford  A.  Myers 


INTRODUCTION 

A  forest  operated  as  a  business  enterprise  pro- 
duces more  than  wood,  forage,  and  other  products. 
It  is  a  prolific  source  of  treatment  and  inventory 
records,  reports,  plans,  maps,  and  other  information. 
As  with  other  businesses,  there  is  great  need  for 
efficient  information  processing  and  retrieval  so 
that  all  available  information  can  be  used  for 
decisionmaking. 

Procedures  for  analyzing  inventory  and  other 
data  and  reducing  them  to  summary  values  useful 
in  planning,  have  been  available  for  many  years. 
These  procedures  have  long  provided  information 
needed  for  management;  their  validity  and  useful- 
ness usually  have  been  widely  accepted.  There 
are,  however,  important  deficiencies  in  the  ways 
data  have  been  handled  and  in  the  conventional 
methods  of  computation  described  in  forest  manage- 
ment texts.  Specifically,  the  use  of  maps  and  over- 
lays, timber  atlas  and  similar  records,  and  desk 
calculators  involve  such  difficulties  as  the  following: 

1.  There  is  usually  more  information  available  than 
can  be  stored,  retrieved,  and  analyzed  efficiently. 

2.  Maps,  photographs,  overlays,  and  tabulations  of 
numerical  data  freeze  the  information  at  one  or 
a  few  points  in  time.  Changes  in  recorded  infor- 
mation in  response  to  changes  in  the  forest  are 
expensive  and  time  consuming. 

3.  Higher  offices  may  ask  for  information  already 
assembled  in  whole  or  in  part  for  a  previous 
report,  but  for  which  the  worksheets  are  no  longer 
available.  This  can  lead  to  much  repetition  in 
the  assembly  and  analysis  of  data. 

4.  Information  gathered  for  a  specific  purpose  may 
be  placed  in  a  dead  file  after  immediate  needs 
are  met.  It  may,  however,  have  future  value 
in  management  and  decisionmaking,  if  it  could 
be  stored  and  relocated  efficiently. 

5.  Timber  management  appears  to  proceed  by  steps, 


from  management  plan  to  management  plan. 
Standing  timber  can  and  should  be  accounted 
for  continuously,  however,  as  is  done  for  products 
entering  and   leaving  a  warehouse.     There  is 
danger  of  forgetting  that  a  productive  forest  is 
a  continuous,  dynamic  system. 
High-speed    computers    with     large  memory 
capacity  (both  core  and  peripheral)  provide  a  means 
of  extracting  efficiently  large  amounts  of  information 
from  an  accumulation  of  records.     Data  can  be 
stored,  retrieved,  and  updated  with  relative  ease. 
Computations,  if  preplanned,  can  be  done  so  cheaply 
that  higher  offices  can  obtain  all  the  reports  desired 
without    disrupting    the   work    schedule   of  local 
managers.    There  is  no  need  to  depend  on  plans 
that  are  expected  to  apply  for  several  years  despite 
fires,   epidemics,  and  changes  in  economic  condi- 
tions.  A  new  plan,  new  maps,  new  cutting  budget, 
and  a  new  work  schedule  can  be  obtained  as  soon 
as  recent  changes  in  forest  conditions  can  be  re- 
corded in  the  data  file. 

Program  TEVAP  (Timber,  Evaluation  And 
Planning),  described  below  and  listed  in  Appendixes 
1  and  3,  provides  a  means  of  obtaining  guidance 
quickly  from  a  large  volume  of  information.  It  is 
an  example  of  the  application  of  some  information 
handling  and  analysis  procedures  to  forest  manage- 
ment. The  program  was  developed  around  relation- 
ships that  apply  to  timber  production  in  even-aged 
stands  because  such  relationships  were  available. 
It  can,  however,  be  expanded  to  include  forage 
and  other  products  and  timber  production  in  many- 
aged  stands  without  change  in  the  basic  system. 

Program  TEVAP  also  provides  an  exampleof  how 
a  manager  can  obtain  a  management  plan  whenever 
he  wants  one.  A  computer  run,  using  updated 
records,  could  be  made  each  winter  during  the 
planning  period  between  field  or  growing  seasons. 
Large  amounts  of  tedious  computations  and  analyses 
are  mechanized;  management  plans  thus  need  not 


be  prepared  only  at  intervals  of  perhaps  10  years. 
The  term  management  plan  refers  to  the  quanti- 
tative section  of  a  conventional  timber  manage- 
ment plan.  This  material,  in  the  form  produced  by 
TEVAP,  will  hereafter  be  referred  to  as  a  manage- 
ment guide.  Such  information,  regardless  of  how 
computed,  is  better  considered  as  a  guide  or  aid 
to  management  rather  than  as  a  plan.  Following 
common  modern  practice,  the  transportation  system 
and  other  general  details  can  be-st  be  described 
in  a  report  that  covers  the  entire  forest  and  all 
resources. 

Programs  such  as  TEVAP  produce  information 
that  can  be  used  for  more  purposes  than  control 
of  current  operations.  They  provide  input  data 
for  programs  that  simulate  operation  of  a  forest 
under  actual  conditions.  A  manager  can  use  the 
results  of  simulation  to  determine  which  one  of 
several  management  alternatives  will  best  meet 
his  objectives  (Chorafas  1965). 

The  program  was  written  in  USASI  standard 
Fortran  IV  and  tested  on  a  CDC  6400  computer. 
Program  organization  permits  modification  for  appli- 
cation to  local  tree  species,  procedures,  and  com- 
puting equipment.  Improved  or  additional  data  and 
procedures  can  be  inserted  as  they  become  avail- 
able. Relationships  that  are  specific  to  a  species 
or  location  are  described  in  Appendix  4.  They  can 
be  replaced  by  statements  applicable  to  other  species 
or  forest  regions. 

DATA  HANDLING  AND  MANAGEMENT 

Forest  resource  records  are  assembled  from 
several  sources.  For  timber,  these  sources  are: 
(1)  periodic  forest  inventory,  (2)  job  reports  pre- 
pared at  the  completion  of  each  thinning,  planting, 
sale,  or  other  cultural  operation,  (3)  area  descrip- 
tions written  after  each  fire  or  other  catastrophe, 
and  (4)  stand  and  compartment  analyses  made  as 
funds  become  available.  Results  of  periodic  inven- 
tories appear  in  management  plans  prepared  after 
each  inventory.  Job  reports  and  other  data  may  be 
posted  on  the  maps  and  tables  of  a  timber  atlas 
and  summarized  in  annual  reports.  Although  pro- 
cedures vary  among  forest  regions  and  classes  of 
ownership,  almost  every  item  of  information  is 
used  at  some  step  in  management  and  decision- 

^Trade  names  and  company  names  are  used 
for  the  benefit  of  the  reader,  and  do  not 
imply  endorsement  or  preferential  treatment  by 
the  V .  S.  Department  of  Agriculture . 


making.  Several  operational  computer  programs 
for  the  analysis  of  periodic  inventories  illustrate 
how  well  thedevelopmentof  computation  procedures 
has  progressed. 

It  is  unusual,  however,  for  every  item  of  in- 
formation to  be  used  for  all  appropriate  purposes. 
For  example,  an  individual  fire  report  becomes 
part  of  the  annual  report  on  losses  and  suppres- 
sion costs.  It  may  then  go  to  the  protection  file 
rather  than  be  processed  as  an  important  item 
of  inventory  data. 

There  are  valid  reasons  why  the  maximum  amount 
of  information  may  not  be  extracted  from  each  item 
of  data.  Problems  related  to  storage  and  retrieval 
are  frequently  of  great  importance.  These  include 
the  size  of  record  files,  problems  of  assembling 
the  data  for  use,  and  reassignment  of  people  who 
know  what  has  been  recorded  and  where  to  find 
it.  A  forest  manager  is  faced  with  other  information 
problems  that  are  less  easily  solved.  There  is 
little  value  in  pooling  records  unless  they  can  be 
updated  to  put  them  on  a  common  time  base.  Also, 
data  sufficient  for  a  particular  purpose  may  not  be 
complete  enough  for  more  general  use.  A  report 
on  a  thinning  job  may  not  contain  sufficient  stand 
or  site  data  to  permit  its  use  in  growth  projections. 

Procedures  used  in  TEVAP  to  bypass  some  of 
the  problems  mentioned  above  are  based  on  avail- 
ability of  a  file  of  inventory  records  that  can  be 
updated  as  needed.  This  file  contains  stand  data 
from  many  sources  such  as  land  books,  job  reports, 
and  inventories.  Stand  descriptions  prepared  soon 
after  thinning,  fire  suppression,  and  other  activities 
provide  excellent  up-to-date  inventory  data  and 
are  used  as  such.  Conventional  inventories  sample 
parts  of  a  forest  not  already  described  in  other 
records. 

Inventory  records  for  TEVAP,  card  type  16  in 
the  list  of  data  cards,  are  summaries  of  work  reports 
or  of  conventional  inventory  records.  They  contain 
only  the  specific  items  needed  program  execu- 
tion. Overstory  and  understory  components  of  a 
stand  are  described  separately,  if  both  are  present. 
Computations  can  thus  be  made  for  stands  being 
regenerated  by  shelterwood  or  seed  tree  systems. 
Growth  can  also  be  estimated  for  the  many  uneven- 
aged  stands  that  may  be  described  mathematically 
as  two  stands,  overstory  and  understory. 

Data  used  by  TEVAP  can  be  updated  by  com- 
puter once  the  basic  relationships  needed  have 
been  determined.  How  this  may  be  done  for  the 
inventory  records  is  explained  in  Appendix  5. 
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DESCRIPTION  OF  PROGRAM  TEVAP 

Program  TEVAP  consists  of  a  main  program 
and  nine  subroutine  subprograms  (Appendix  1, 
Appendix  3).  Three  subroutines  (MAPS,  AREA1, 
AREA2)  provide  alternative  waysof  computing  areas, 
and  only  one  of  them  is  used  at  a  time.  Program 
execution  thus  requires  use  of  the  main  program 
and  seven  subroutines. 

Content  and  purpose  of  each  routine  are 
described  in  the  sections  that  follow.  Variable 
names  are  defined  with  the  main  program  in 
Appendix  1  and  in  the  list  of  contents  of  the  data 
deck.  The  list  of  data  cards  also  reports  the  number 
of  cards  needed  and  the  sequence  in  which  they 
are  read.  An  example  of  an  application  of  TEVAP, 
reported  in  Appendix  2,  provides  additional  explana- 
tion of  the  program. 

The  number  of  possible  units  of  each  kind  of 
forest  subdivision  is  limited  by  the  dimensions 
assigned  appropriate  variables  in  COMMON  and 
DIMENSION  statements.  Each  subdivision  has  a 
different  limit  so  dimensions  and  loops  that  pertain 
to  it  can  be  identified.  Restrictions  to  be  observed 
unless  appropriate  changes  are  made  are  as  follows: 

1 .  The  working  circle  may  be  subdivided  into  one  to 
five  blocks.  A  block  may  be  an  isolated  unit  of 
the  working  circle  or  one  or  more  ranger  districts. 
There  must  be  at  least  one  block  in  the  working 
circle  for  proper  program  execution. 

2.  A  maximum  of  three  working  groups  may  be 
defined  without  changes  in  dimensions.  For 
brevity,  formats  of  output  tables  provide  for  only 
two  working  groups.  A  working  group  consists 
of  stands  of  the  same  forest  type  and  managed 
under  the  same  silvicultural  system  (Chap- 
man 1950). 

3.  Provision  is  made  for  20  vegetative  or  use  types; 
17  types  are  used  for  the  example  presented 
in  Appendix  2.  They  are  as  follows: 

Types  1-5  -  Five  broad  age  classes  within  a  pine 
working  group  that  is  regenerated  by  shelterwood. 
Types  6-10  -  Five  broad  age  classes  within  a 
spruce  working  group  that  is  regenerated  by 
small  clearcuts. 

Type  1  1  -  Deforested  areas  covered  by  brush. 
Type  12  -  Deforested  areas  covered  by  grass. 
Type  13  -  Recreation  areas  not  included  in  com- 
putations of  allowable  cut. 

Type  14  -  Rock  outcrops  and  other  areas  where 
plant  products  cannot  be  produced. 


Type  15  -  Areas  covered  by  brush  that  will  not 
be  converted  to  forest. 

Type  16  -  Areas  with  grasses  and  other  herba- 
ceous species  that  will  be  managed  for  forage 
production. 

Type  17  -  Areas  of  other  ownership  within  the 
boundaries  of  the  working  circle. 

4.  Stand  ages  may  be  grouped  into  15  or  fewer 
10-year  age  classes.  This  classification  is  in  addi- 
tion to,  but  correlated  with,  the  use  of  age  in  the 
forest  type  definitions. 

5.  Provision  is  made  for  up  to  30  subcompartments 
per  compartment.  This  specification  need  be 
considered  only  if  subroutine  MAPS  is  chosen 
as  the  source  of  area  data. 

Main  Program 

The  main  program  calls  five  subroutines  to  exe- 
cute five  groups  of  operations  in  the  following 
order: 

1 .  Read  values  of  control  variables. 

2.  Compute  area  totals  and  subtotals. 

3.  Compute  present  and  future  volumes,  periodic 
yields,  and  other  descriptive  values. 

4.  Compute  optimum  growing   stocks  and  yields. 

5.  Summarize  computations  and  print  a  guide  to 
management. 

TEVAP  provides  three  alternatives  for  thesecond 
set  of  operations,  computation  of  areas.  One  alter- 
native (MAPS)  requires  complete  forest  subdivision 
plus  compartment  maps  on  punched  cards  or  mag- 
netic tape.  Another  (AREA2)  requires  only  a  know- 
ledge of  total  area  of  the  working  circle  and  of  each 
nontimber  vegetative  or  use  type.  The  third  alter- 
native (AREA1)  represents  one  intermediate  possi- 
bility, knowledge  of  type  areas  by  compartments 
but  with  subcompartments  not  designated  or  mapped. 
A  new  routine  may  replace  the  three  examples  if 
still  another  level  of  information  is  of  interest. 

Each  subroutine  called  by  the  main  program 
writes  one  or  more  pages.  Each  page  is  identified 
by  a  type  number  such  as  "page  type  3."  Each 
type  number,  except  type  5,  designates  a  specific 
page  layout.  Pages  are  not  numbered  consecutively 
because  page  requirements  will  vary  with  size  of 
the  working  circle  and  area  alternative  used.  The 
last  three  items  printed  are  designated  types  1, 
2,  and  3  since  many  managers  prefer  that  summary 
pages  be  the  initial  pages  of  a  plan.    Pages  of 
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Z-fold  paper  can  be  separated  and  placed  in  proper 
numerical  order.  Temporary  storage  on  scratch 
tapes  can  be  used  to  reorder  pages  for  output 
onto  film. 

Subroutine  BASIS 

BASIS  enters  into  computer  memory  values  of 
control  variables  that  do  not  change  during  program 
execution.  Some  variables  quantify  management 
decisions  and  economic  limitations.  These  include 
frequency  and  intensity  of  thinning,  rotation  lengths, 
volume  of  seed  trees  or  shelterwood,  and  minimum 
volumesfor  commercial  operations.  Other  variables 
define  such  items  as  expected  growth  of  an  over- 
story  seed  source  and  length  of  the  delay  between 
regeneration  cutting  and  establishment  of  the  new 
stand.  Values  of  the  control  variables  can  be  ob- 
tained from  analysis  of  past  records,  measurements 
on  temporary  plots,  and  from  computer  simulations 
based  on  goals  and  policy  (Myers  1968). 

Values  read  by  BASIS  are  printed  as  page  type 
4  to  provide  a  record  of  the  control  variables. 
These  variables  are  listed  and  defined  in  the 
description  of  the  data  deck. 

Subroutine  MAPS 

Subroutine  MAPS  is  one  of  three  alternative 
routines  used  to  compute  areas.  Complete  forest 
subdivision  to  the  subcompartment  and  compart- 
ment maps  that  show  types  and  subcompartments 
are  needed.  The  sequence  of  operations  is  ex- 
plained by  COMMENT  statements  in  the  program 
listi ng  (Appendix  3). 

Program  MAPS  accepts  map  data  in  the  form 
of  arrays  of  map  codes  on  punch  cards  or  tape. 
The  form  of  input  is  specified  by  assignment  of 
logical  unit  3  to  the  card  reader  or  to  a  tape  drive. 
Array  sizes,  related  DIMENSION  statements,  the 
system  of  map  codes,  and  the  area  represented 
by  one  square  of  the  map  grid  may  be  changed 
as  desired. 

Coding  of  types  (KTYP)  and  subcompartments 
(KSUB)  followed  a  procedure  used  for  demographic 
and  other  studies.  In  the  example,  each  section 
of  640  acres  on  a  forest  stand  map  was  subdivided 
into  144  small  squares.  Each  square  of  4.444  acres 
(map  4  inches  to  1  mile)  was  then  assigned  the  code 
number  of  the  predominant  type.  Portions  of 
sections  were  combined  to  reproduce  the  entire 


compartment.  Subcompartments  were  then  desig- 
nated and  coded  on  the  basis  of  type  codes  and 
field  data.  In  the  forest  used  as  an  example,  all 
compartments  fit  into  squares  three  sections  on  a 
side  and  could  be  represented  by  arrays  of  36x36 
2-digit  code  numbers.  One  west-to-east  row  of 
coding  occupied  the  first  72  columns  of  a  punch 
card.  As  many  cards  as  necessary,  but  not  more 
than  36,  were  punched  to  complete  a  type  or  sub- 
compartment  map  for  a  compartment.  All  cards 
were  run  through  an  editing  program  to  locate 
errors.  This  included  a  check  that  each  subcom- 
partment contained  only  one  type.  Corrected  maps 
and  control  variables  were  then  recorded  on  mag- 
netic tape,  using  WRITE  statements  equivalent  to  the 
last  three  READ  statements  of  MAPS. 

The  mapping  procedure  used  is  intended  to 
illustrate  the  types  of  information  needed  and  what 
can  be  done  with  it.  In  actual  applications,  more 
efficient  procedures  may  be  available.  Hand-coding, 
for  example,  can  be  replaced  by  use  of  equipment 
that  reduces  map  areas  to  digitized  form.  Forest 
managers  can  obtain  procedural  guides  from  the 
many  applications  of  computer  graphics  to  studies 
of  urban  problems   and   land  use  (Shahar  1970). 

MAPS  contains  the  one  machi ne-dependent  oper- 
ation in  program  TEVAP.  Map  code  numerals  are 
converted  to  display  code  so  blank  areas  of  the 
maps  will  not  be  filled  with  minus  zeros.  Con- 
verted numbers  are  then  printed  with  R  format. 
Program  statements  must  be  modified  if  available 
equipment  uses  a  different  display  code  than  the 
CDC  6400  used  to  test  the  program. 

Two  pages,  types  5  and  6,  are  printed  by  MAPS. 
The  form  of  page  type  5  is  optional,  and  is  speci- 
fied by  the  value  read  initially  for  the  variable 
MAP  (Appendix  3).  Type  and  subcompartment  maps 
and  related  area  totals  may  be  printed,  if  desired. 
Two  pages  are  produced  per  compartment,  one 
with  the  type  map  and  one  with  the  subcompart- 
ment map.  Alternatively,  only  type  and  subcom- 
partment areas  may  be  printed  (MAP  =  0).  Page 
type  6  reports  block  and  working  circle  totals,  and 
has  the  same  format  as  the  equivalent  page  pro- 
duced by  AREA1  and  AREA2  (Appendix  2). 

Following  usual  rules  for  forest  subdivision,  type 
and  subcompartment  boundaries  arecontinually  sub- 
ject to  change  (Chapman  1950).  The  map  file  must 
therefore  be  updated  prior  to  each  computer  run 
with  subroutine  MAPS.  Cultural  operations,  growth 
into  the  next  age  class,  and  fire  or  other  catas- 
trophe create  need  for  recoding. 
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Subroutine  AREA1 

Subroutine  AREA1  is  another  of  the  three  alter- 
native routines  that  compute  areas.  It  is  used  if 
compartments  have  been  established  and  if  type 
areas  within  compartments  are  known.  It  is  as- 
sumed that  either  subcompartments  have  not  been 
established,  or  that  compartment  maps  are  not 
available.  AREA1  illustrates  one  possible  situation 
in  the  range  of  degrees  of  administrative  complexity 
between  the  limits  served  by  MAPS  and  AREA2. 

Type  areas  by  compartment— inputs  to  the  sub- 
routine—are summed  to  obtain  total  acres  by  work- 
ing group,  by  block,  and  by  various  other  classi- 
fications and  combinations  thereof.  These  sums 
are  passed  through  COMMON  to  GOT.  COMMENT 
statements  in  theprogram  listing,  Appendix3,  explain 
the  operations  involved. 

AREA1  prints  type  areas  of  each  compartment 
on  one  form  of  type  5  pages  (Appendix  3)  and 
prints  a  type  6  page  to  report  block,  working  group, 
and  working  circle  totals.  The  type  6  page  is  the 
same  as  that  produced  by  MAPS  and  AREA2. 

Subroutine  AREA2 

Subroutine  AREA2  is  the  third  of  the  routines 
used  to  compute  areas  (Appendix  I).  It  is  used  if 
compartments  have  not  been  established,  or  if 
type  areas  within  compartments  are  not  known. 
This  is  the  situation  assumed  for'  the  example 
in  Appendix  2.  Type  areas  are  computed 
from  total  production  area,  including  nonstocked, 
and  inventory  information  on  type  16  data  cards. 
Areas  of  nonforest  types  and  of  unregulated  stands 
in  recreation  areas  are  subtracted  from  working 
circle  area  to  get  the  area  available  for  timber 
management.  Stands  of  known  area  are  assigned 
to  the  appropriate  type.  Remainder  of  the  pro- 
duction area  is  allocated  to  forest  types  in  pro- 
portion to  the  number  of  inventory  records  from 
each  type.  These  inventory  records  are  the  same 
records  used  by  subroutine  GOT. 

Type,  working  group,  and  block  areas  are  re- 
corded on  pages  type  5  and  6  (Appendix  2). 

Subroutine  GOT 

Subroutine  GOT  processes  the  set  of  inventory 
records  (data  card  type  16)  to  obtain  present  and 


future  volumes  and  other  values.  Controlsdescribed 
in  the  following  paragraphs  apply  to  all  computations. 

Inventory  records  have  a  number  in  the  ACRE 
field  if  the  tree  and  site  index  values  are  amounts 
per  acre  averaged  over  a  specific  stand.  The  ACRE 
field  has  a  blank  or  zero  if  the  record  is  for  a 
sample  plot  that  describes  a  portion  of  the 
"unknown"  forest  area.  In  terms  of  recent  National 
Forest  inventories,  the  working  circle  may  be  at 
stage  one  (sampling  the  working  circle),  at  stage 
two  (compartment  analysis),  or  with  parts  of  the 
area  at  each  level. 

Records  are  counted  by  several  classifications 
if  the  ACRE  field  is  blank  or  has  zeros.  Nonzero 
values  of  ACRE  are  added  to  appropriate  area 
totals  and  are  subtracted  from  a  duplicate  array 
of  the  type  areas  computed  by  MAPS,  AREA1,  or 
AREA2.  Type  areas  remaining  in  the  duplicate 
array  after  all  records  are  processed  are  assigned 
to  age  and  site  index  classes  in  proportion  to  the 
number  of  zero-area  records  in  each  class. 

Volume  computations  are  bypassed  for  records 
from:  (1)  deforested  areas,  (2)  areas  below  mini- 
mum site  index  for  management,  (3)  trees  too  young 
or  too  small  to  have  more  than  a  few  merchantable 
cubic  feet  per  acre,  and  (4)  stands  below  minimum 
age  for  inclusion  in  growing  stock  totals.  With  these 
exceptions,  operations  performed  on  individual  in- 
ventory records  produce  the  following  values: 

1 .  Present  basal  areas  and  volumes  per  acre. 

2.  Basal  areas  and  volumes  at  the  end  of  the  plan- 
ning period. 

3.  Growth  expected  during  the  next  planning  period, 
in  cubic  feet  and  board  feet.  Thinnings  are  com- 
puted as  though  done  at  the  beginning  and  end 
of  the  period,  and  average  growth  is  determined. 
It  is  assumed  that  about  equal  areas  will  be 
thinned  each  year  of  the  period. 

4.  Potential  yields  during  the  next  planning  period 
if  all  areas  are  treated  as  specified  by  WORK 
on  the  inventory  records.  Half  the  potential 
growth  of  stands  to  be  cut  during  the  period  is 
added  to  potential  yields.  Volumes  are  not  in- 
cluded in  total  yields  if  they  are  less  than  the 
minimum  commercial  cuts  specified  by  values 
of  variables  COMBF(I)  and  COMCU. 

Two  variables  define  time  periods.  TIME  is  the 
number  of  years  in  a  planning  period.  It  is  the 
period  considered  in  assigning  the  WORK  index 
that  identifies  stands  in  need  of  treatment  in  the 


near  future.  Possible  values  of  WORK  are  defined 
in  Appendix  1.  RINT  is  the  number  of  years  for 
which  the  equations  predict  future  d.b.h.,  height, 
and  stand  density.  TIME  must  be  equal  to  or  a 
multiple  of  RINT. 

Two  sets  of  volume  totals  are  maintained  for 
block,  age,  and  other  subdivisions  until  all  inventory 
records  are  processed.  One  set  reports  volumes 
of  stands  of  known  area.  Volumes  per  acre  are 
multiplied  by  area  to  obtain  stand  volumes  for 
addition  to  the  totals.  The  second  set  reports 
volumes  from  records  with  no  entry  for  area  in 
the  ACRE  field.  Volumes  per  acre  are  summed  for 
each  subdivision  specified  in  the  program.  These 
sums  are  converted  to  totals  for  each  subdivision 
after  all  records  have  been  processed  and  the  area 
represented  by  one  sample  plot  determined. 

Summaries  of  area  and  present  volumes  are 
printed  on  pages  type  7,  8,  and  9.  Working  circle 
totals  are  subdivided  among  block,  type,  and  site 
index  classes.  Many  computed  values  are  not  re- 
ported at  this  point  in  the  program,  but  are  re- 
tained in  COMMON  for  use  by  GOAL  and  GUIDE. 

Inventory  records  used  by  AREA2  and  GOT 
could  be  listed  according  to  value  of  the  WORK 
variable.  This  would  provide  information  on  where 
stands  to  be  treated  during  the  next  management 
period  are  located.  Such  a  list  is  not  made  by 
TEVAP,  but  could  be  produced  by  a  separate  run 
of  the  inventory  records. 

Subroutine  GOAL 

Subroutine  GOAL  computes  the  optimum  con- 
ditions that  would  exist  if  all  stands  were  thinned 
on  schedule  to  the  specified  level,  and  if  a  balanced 
series  of  age  classes  had  been  established.  Values 
needed  to  make  these  computations  come  from 
other  routines.  Management  decisions  based  on 
experience,  results  of  simulations,  and  statements 
of  policy  are  entered  by  BASIS.  Acres  in  each  site 
index  class  of  each  working  group  are  computed 
by   GOT  from  area  data  and  the  inventory  file. 

Most  computations  are  executed  once  for  each 
site  index  class  of  each  working  group.  Major  oper- 
ations, in  the  order  performed  for  a  site  class,  are 
as  follows: 

l.A  yield  table  that  incorporates  management 
decisions  such  as  frequency  and  intensity  of  thin- 
ning is  printed  as  page  type  10.  Prediction  equa- 
tions used  are  described  in  Appendix  4.  Thinnings 


and  conversion  of  cubic  feet  to  other  units  are 
simulated  by  subroutines  CUTS  and  VOLS, 
described  below.  A  yield  table  for  a  site  class 
of  a  working  group  serves  as  a  "normal"  or 
standard  for  stands  of  that  classification.  It  repre- 
sents the  goal  toward  which  operations  are 
directed.  It  is  possible  to  produce  many  yield 
tables  for  a  site  class,  which  emphasizes  that 
there  cannot  be  a  single  table  for  managed 
stands  of  a  species  and  site  class.  The  term 
"managed"  indicates  that  there  are  additional 
variables  to  be  considered;  one  table  cannot 
account  for  all  the  possibilities.  Each  table  is 
useful  only  where  goal  sand  management  decisions 
are  as  specified  for  its  computation. 

Details  of  field  work  and  computations  needed 
to  produce  yield  tables  have  been  published  else- 
where (Myers  1966,  Myers  and  Godsey  1968). 
Much  of  GOAL  from  statement  45  to  statement 
184  is  a  duplication  of  procedures  developed  for 
yield  table  construction.  Recent  changes  and 
generalizations  are  described  in  Appendix  4. 

2.  Volumes  per  acre  at  each  year  of  stand  age  are 
obtained  by  interpolation  between  yield  table 
values.  These  volumes,  in  board  feet  and  cubic 
feet,  are  later  summed  to  obtain  optimum  growing 
stocks.  Results  of  the  interpolations  are  printed 
as  page  type  1  1  to  preserve  them  for  possible 
use  after  the  management  guide  has  been 
produced. 

3.  Mean  annual  increment  at  rotation  age  is  com- 
puted for  each  site  class  of  each  working  group. 
If  appropriate,  tree  felling  ages  do  not  equal 
rotation  ages,  but  include  the  effects  of  delays 
in  obtaining  regeneration  and  the  period  seed 
trees  or  a  shelterwood  may  be  left  over  the  new 
crop.  Mean  annual  increments  computed  from 
yield  table  volumes  are  later  used  as  "normal" 
increments  in  application  of  Heyer's  formula: 

WV  -  NV 

E  =  WZ  + 

a 

where:  WZ  is  mean  annual  increment,  WV  is 
actual  growing  stock,  NV  is  normal  growing 
stock,  and  a  is  the  adjustment  period  (Burger 
1920). 

4.  GOAL  calculates  the  number  of  acres  and  the 
growing  stock  in  each  age  class  with  a  balanced 
series  of  age  classes.  Area  regulation  is  assumed 
for  these  computations;  ANCUT(IJ)  is  areadivided 
by  rotation  age.    Acres  with  stands  of  zero  age 
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are  listed  as  such  if  delays  in  regeneration  are 
expected  with  clearcut  systems.  Volumes  of  seed 
trees  or  shelterwood  are  included  in  age  class 
totals  if  these  silvicultural  systems  are  used. 
Overwood  volumes  appear  in  the  age  class  of 
the  overwood  trees  during  periods  of  delay  in 
regeneration.  Overwood  volumes  are  in  the 
youngest  age  classes  after  the  new  crop  appears 
and  before  the  overwood  is  removed.  Tables 
on  pages  type  12  of  Appendix  2  show  examples 
of  working  groups  managed  by  shelterwood  and 
clearcut  systems. 
5.  Annual  cuts  that  might  be  obtained  with  a  bal- 
anced series  of  age  classes  and  optimum  stand 
density  are  computed  for  each  working  group. 
Volumes  from  intermediate,  regeneration,  and 
final  cuts  are  not  combined  into  working  group 
totals  until  GUIDE  is  called. 

Subroutine  GUIDE 

Subroutine  GUIDE  computes  several  variables 
used  in  regulation  of  the  cut,  and  prints  three  types 
of  summary  pages.  Differences  between  actual 
and  optimum  growing  stocks  are  computed  and 
printed  as  part  of  page  type  2.  Acres  and  the 
volumes  that  could  be  obtained  by  thinning,  re- 
generation cutting,  and  other  operations  during  the 
next  management  period  are  summarized.  Sum- 
mary values,  by  block  and  type,  are  printed  as 
page  type  3.  Separate  pages  of  types  2  and  3 
are  printed  for  each  working  group. 

Page  type  1  contains  a  summary  of  computa- 
tions made  by  the  entire  program,  including  a  state- 
ment of  the  allowable  cuts  computed  by  GUIDE. 
As  programed,  page  type  1  contains  only  a  few  of 
the  items  that  could  be  assembled  on  summary 
pages.  It  is  an  example  of  what  can  be  done, 
not  an  attempt  to  provide  a  standardized  format. 

TEVAP  computes  and  reports  three  annual  cuts, 
as  examples  of  what  can  be  done  by  this  or  similar 
programs.  The  types  of  cut  are: 

1.  Idealized  cut  based  on  area  regulation  and  a 
balanced  series  of  age  classes.  Components 
of  this  cut  are  computed  by  GOAL  and  sum- 
marized by  GUIDE. 

2.  Potential  cut  if  all  operations  called  for  by  the 
WORK  index  were  performed,  without  regard  to 
other  restrictions.  Periodic  cuts  are  computed  by 
GOT  and  converted  to  annual  volumes  by  GUIDE. 


3.  Annual  cut  computed  with  a  modification  of  Hey  er's 
formula  and  an  adjustment  period  of  ADJ(I)  years. 
Growing  stock  volumes  computed  from  mean 
annual  increment,  as  called  for  by  the  formula 
(Burger  1920),  are  not  used.    Instead,  actual  and 
desired  growing  stocks  computed  by  GOT  and 
GOAL  are  used  by  GUIDE  to  compute  the  de- 
sired values.    Initial  term  of  the  formula  is  mean 
annual  increment  obtained  from   the  idealized 
yield  tables  produced  by  GOAL. 
Convenient   comparisons  of  annual  cuts  pro- 
vided by  page  type  1  suggest  another  use  of  pro- 
grams such  as  TEVAP.   They  can  be  used  as  tools 
for  research  on  the  principles  of  allowable  cut  deter- 
mination.    For  example,  quite  dissimilar  results 
would  be  produced  by  various  modifications  of  the 
Heyer  formula.  Periodic  annual  increments,  PAIBD(I) 
and  PAICU(I),  are  computed  by  GOT  for  use  in  such 
comparisons.   Predominance  of  young  stands  in  the 
forest  described  in  Appendix  2  suggests  that  a  rela- 
tively low  annual  cut,  one  computed  from  mean 
annual   increment,    be   accepted   as   a   guide  to 
management  (Dwight  1965). 

Subroutine  VOLS 

VOLS  is  called  by  GOT  and  GOAL  to  convert 
total  cubic  feet  per  acre  to  other  units.  As  listed 
in  Appendix  1  and  described  in  Appendix  4,  con- 
versions can  be  made  to  cubic  feet  to  a  4-inch 
top  and  to  board  feet  Scribner  Rule.  Other  con- 
versions could  be  added,  such  as  those  based  on 
tree  contents  in  square  feet  of  veneer  or  in  pounds 
of  wood  (Myers  1960). 

Conversion  factors  (FCTR  and  PROD)  are  com- 
puted from  average  stand  diameter,  and  are  passed 
through  COMMON  to  the  calling  routine.  They 
are  computed  for  one  species  and  for  one  or  two 
stand  conditions  at  a  time.  Stand  conditions  may 
be  present  and  future  stand,  overstory  and  under- 
story,  or  similar  paired  requirements.  Calls  of 
the  subroutine  by  GOAL  require  that  only  one 
value  of  each  conversion  factor  be  computed  for 
each  CALL  statement.  Each  CALL  VOLS  is  pre- 
ceded by  specification  of  the  number  of  values 
of  each  factor  needed  and  by  the  average  diameter 
to  be  used.  Minimum  average  diameters  are  speci- 
fied for  each  factor;  variability  is  so  great  with 
small  diameters  that  the  results  serve  no  useful 
purpose. 
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Subroutine  CUTS 

Subroutine  CUTS  estimates  average  stand  dia- 
meter after  thinning  from  below.  Estimated  dia- 
meter after  thinning  (DBHE)  is  computed  from  dia- 
meter before  thinning  and  the  percentage  of  trees 
to  be  retained  (Appendix  4).  Successive  percentages 
are  tested  until  d.b.h.  after  thinning,  number  of 
trees  retained,  and  residual  basal  area  agree  with 
the  growing  stock  goal  specified  by  THIN(I) 
or  DLEV(I).  Each  call  by  GOT  or  GOAL  is  pre- 
ceded by  a  statement  that  specifies  the  thinning 
level  (REST)  to  be  used. 

Growing  stock  levels  specify  the  basal  area  to 
be  left  after  thinning  in  relation  to  average  stand 
diameter  (Appendix  4).  Definition  of  several  levels 
provides  for  alternative  thinning  intensities.  Each 
level  is  named  by  the  basal  area  to  be  left  when 
average  diameter  is  1  0.0  inches  or  larger.  Residual 
basal  area  increases  with  stand  diameter  until  the 
diameter  reaches  10.0  inches.  Thereafter,  basal 
area  remains  constant  for  any  one  stocking  level. 
Subroutine  CUTS  therefore  has  two  iterative  loops 
so  a  full  range  of  diameters,  with  both  variable 
and  constant  basal  area,  may  be  accommodated. 
Limiting  d.b.h.  for  selection  of  loops  is  10.0  inches 
minus  the  smallest  change  expected  from  usual 
thinning  practice. 

DATA  DECK  FOR  TEVAP 

Nineteen  types  of  punch  cards  or  card  images, 
listed  below,  are  used  to  enter  initial  values  of 
variables  into  computer  memory.  In  this  section, 
the  word  "card"  may  refer  either  to  a  standard 
80-column  punch  card  or  to  a  card  image  on  mag- 
netic tape.  Records  that  can  best  be  handled  by 
tape  are  identified  in  the  descriptions  of  the  sub- 
routines. 

In  the  following  list,  type  numbers  with  asterisks 
designate  alternatives  (types  8  to  15,  inclusive). 
Only  two  to  four  of  these  types  need  appear  in  the 
data  deck  for  a  single  run  of  the  program.  Basis 
for  choice  is  the  area  subroutine  (MAPS,  AREA1, 
AREA2)  selected  for  call  by  the  main  program.  All 
cards  with  type  numbers  not  followed  by  asterisks 
must  be  included  in  the  data  deck  so  READ  state- 
ments will  be  executed  properly.  Data  cards  are 
read  in  order  of  type  numbers  except  for  choice 
among  types  8  to  15,  and  repetition  needed 
because  of  number  of  working  groups  and  other 
forest  subdivisions. 


Card  types  1  to  7,  inclusive,  are  read  by  BASIS. 
Types  1 ,  3,  4,  and  7  consist  of  one  card  each;  type 
2  consists  of  three  cards.  One  card  of  type  5  and 
one  card  of  type  6  must  be  provided  for  each  work- 
ing group.  Cards  are  read  in  order  of  type  number, 
with  cards  of  type  5  completed  before  type  6  is 
started;  type  6  is  completed  before  type  7  is  read. 

Subroutine  MAPS,  if  used,  reads  card  types  8 
to  11,  inclusive.  One  card  of  type  8  is  needed  to 
enter  values  that  apply  to  all  compartments.  A 
set  of  cards  for  one  compartment  consists  of  type 
9  (one  card),  type  10  (up  to  36  cards),  and  type 
11  (up  to  36  cards).  These  sets  are  read  in  the 
sequence  9,  10,  11,  9,  10,  11,  etc.  until  the  number 
of  sets  or  compartments  (NCMP)  on  card  type  3 
has  been  processed. 

AREA1,  if  used,  reads  card  types  12  and  13. 
A  set  of  cards  for  one  compartment  consists  of 
one  card  of  type  12  and  the  two  cards  that  make 
up  type  13.  Sets  are  read  in  the  sequence  12, 
13,  12,  13,  etc.  until  the  number  of  sets  or  com- 
partments (NCMP)  on  card  type  3  has  been 
processed. 

Subroutine  AREA2,   if  used,  reads  card  types 

14  to  17  inclusive.  First,  one  card  of  type  14  with 
one  to  five  block  areas  is  read.    One  card  of  type 

15  is  then  read  for  each  entry  on  card  type  14. 
Cards  of  type  15  must  be  arranged  in  the  order 
block  1,  block  2,  and  so  forth,  up  to  the  highest 
block  number  needed,  to  match  the  order  in  which 
block  areas  are  punched  on  card  type  14.  All  cards 
or  card  images  of  type  16  are  read  after  reading 
of  card  type  15  is  completed.   This  reading  of  type 

16  is  a  preliminary  count,  and  does  not  substitute 
in  any  way  for  the  reading  of  the  same  data  by 
subroutine  GOT.  Reading  is  terminated  by  a  card 
of  type  17  with  a  zero  or  very  large  value  for  I BK . 

GOT  reads  card  types  16  and  17.  The  number 
of  cards  or  card  images  of  type  16  is  determined 
by  the  number  of  inventory  plots  measured  and/or 
by  the  number  of  subcompartments  for  which  inven- 
tory data  are  known.  To  avoid  counting  of  inven- 
tory records  prior  to  program  execution,  a  record 
(type  17)  with  a  zero  or  very  large  value  for  block 
number  follows  the  type  16  records.  This  terminates 
processing  of  the  inventory  and  moves  control  to 
another  place  in  the  program.  Fields  for  KOMP, 
ISUB,  and  ACRE  on  an  inventory  record  will  be 
blank  when  complete  forest  subdivision  does  not 
exist  or  is  not  used  for  the  record. 
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Remaining  cards  in  the  data  deck,  types  18 
and  19,  are  read  by  subroutine  GOAL.  The  se- 
quence is:  (1)  all  type  18  cards  for  the  first  work- 
ing group,  (2)  a  type  19  card,  (3)  all  type  18  cards 
for  the  second  working  group,  and  (4)  another  type 


19  card,  etc.,  until  NWGP  working  groups  have  been 
processed.  Zero  or  very  large  values  for  AGEO 
(type  19)  terminate  each  set  of  type  18,  so  pre- 
liminary knowledge  of  the  number  of  site  classes 
inventoried  is  not  necessary. 


Card 

type 


Read 

by 


No.  of 
cards 


Variable 
name 


Columns 


Format 


Description  of  variable 


BASIS 


BASIS 


BASIS 


FORET(I) 


TYPNM(I) 


NBK 


1-24 


1-80 


1-4 


3A8 


8A10 


14 


Name  of  the  forest  or 
working  circle. 

Brief  name  for  each 
vegetative  or  use  type, 

Number  of  blocks  in 
working  circle.  Must 
be  at  least  one. 


NCMP 


5-6 


14 


Number  of  compartments 
in  working  circle. 
Leave  blank  for  AREA 2 . 


NWGP 


9-12 


14 


Number  of  working 
groups  in  working 
circle. 


BASIS 


MIN 


ROTA 


CYCL 


RINT 


COMCU 


13-16 


1-8 


14 


F8.3 


9-16  F8.3 


17-24  F8.3 


25-32  F8.3 


Minimum  age  for  inclu- 
sion of  stand  volume 
in  growing  stock. 

Longest  possible  rota- 
tion to  be  shown  in 
yield  tables. 

Years  between  inter- 
mediate cuts. 

Number  of  years  for 
which  the  equations 
predict  growth. 

Minimum  commercial  cut 
per  acre,  hundreds  of 
cu.  ft. 


BASIS 


1  per 

working 

group 


BFMRCH 


TIME 


GROWB(I) 


GROWC(I) 


FINL(I) 


33-40  F8.3 


41-48  F8.3 


1-5 


F5.3 


6-10  F5.3 


11-14  F4.1 


Minimum  M  bd.  ft.  per 
acre  for  inclusion  in 
growing  stock. 

Number  of  years  in 
planning  period. 

Growth  rate  in  percent 
of  bd.  ft.  in  shelter- 
wood,  working  group  I. 

Growth  rate  in  percent 
of  cu.  ft.  in  shelter- 
wood,  working  group  I. 

Years  between  regenera- 
tion cut  and  final  re- 
moval of  shelterwood, 
working  group  I. 
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Card  Read  No.  of  Variable 
type  by^  cards  name 


Columns 


Format 


Description  of  variable 


BASIS 


BASIS 


1  per 

working 

group 


8  *  MAPS 


9  * 


MAPS 


1  per 
comp. 


DLEV(I)  15-18  F4.1  Growing  stock  level  for 

cuts  after  initial  thin- 
ning, working  group  I. 

THIN(I)  19-22  F4.1  Growing  stock  level  for 

initial  thinning,  work- 
ing group  I. 

POOR(I)  23-26  F4.1  Minimum  site  index  to 

be  managed  for  timber, 
working  group  I. 

SHELT(I)  27-30  F4.1  M  bd.  ft.  to  be  left  as 

shelterwood,  working 
group  I. 

SHWD(I)  31-34  F4.1  Hundreds  of  cu.  ft.  to 

be  left  as  shelterwood, 
working  group  I. 

COMBF(I)  35-38  F4.1  Minimum  commercial  cut 

in  M  bd.  ft.  per  acre, 
working  group  I. 

DELAY (I)  39-42  F4.1  Years  between  regenera- 

tion cut  and  regenera- 
tion, working  group  I. 

ADJ(I)  43-46  F4.1  Length  of  period  of  ad- 

justment in  allowable 
cut  formula,  working 
group  I. 

RAGE (I, J)  1-40  10F4.0  Rotation  selected  for 

working  group  I  and 
site  index  class  J. 

DATE (I)  1-24  3A8  Date  of  most  recent 

changes  in  data  files. 

MAP  1-4  14  Index  to  print  (1)  or 

to  omit  (0)  compart- 
ment maps. 

SCALE  5-10  F6.4  Acres  represented  by 

one  code  number  on  a 
compartment  map. 

KBK  1-4  14  Block  in  which  the  com- 

partment is  located. 

KOMP  5-8  14  Number  of  the  compart- 

ment being  processed. 

NROW  9-12  14  Number  of  rows  of  map 

symbols  in  the  compart- 
ment map. 


10 


Card 
type 


Read 

by 


No.  of 
cards 


Variable 
name 


Co lumns 


Format 


Description  of  variable 


10 


11 


12 


MAPS 


MAPS 


AREA1 


13 


14 


15 


16 


AREA1 

AREA  2 
AREA  2 


AREA2 
GOT 


NROW  per 
comp . 

NROW  per 
comp. 

1  per 
comp. 


2  per 
comp . 


1  per 
block 

1  per 
plot  or 
subcomp, 


KTYP(I,J) 
KSUB(I.J) 

KBK 

KOMP 

ARETY(I) 

ARBK(I) 
SARETY(I.J) 

IBK 

KOMP 
ISUB 
QTR1 


QTR2 


SECT 


TOWN 


RANG 


SITE 


STRY 


1-72 
1-72 

1-4 
5-8 
1-80 

1-40 
1-64 

1-2 

3-6 
7-9 
10-12 


13-15 


16-18 


19-22 


23-26 


27-30 


31-32 


3612 
3612 

14 
14 

10F8 . 1 

5F8.1 
8F8.1 

12 

14 
13 
A3 


A3 


A3 


A4 


A4 


F4.0 


F2.0 


Type  numbers  in  com- 
partment type  map. 

Subcompartment  numbers 
in  map  of  subcompart- 
ments . 

Block  in  which  the  com- 
partment is  located. 

Number  of  the  compart- 
ment being  processed. 

Acres  of  type  I  in  the 
compartment  being  pro- 
cessed. 

Acres  in  block  I. 

Acres  of  nontimber  type 
J  in  block  I. 

Block  number.    Must  be 
at  least  1  block  in 
working  circle. 

Compartment  number. 
Enter  only  if  applicable, 

Subcompartment  number . 
Enter  only  if  applicable. 

Location  in  \  %  of  pub- 
lic land  survey.  Replace 
columns  10-26  with  other 
location  data,  where 
appropriate . 

Location  in  \  section 
of  public  land  survey. 

Section  in  which  inven- 
tory plot  or  largest  part 
of  compartment  is  located. 

Township  location  of  the 
section. 

Range  location  of  the 
section. 

Average  site  index  of 
the  plot  or  subcompart- 
ment. 

Indicates  whether  type 
is  based  on  overstory 
(blank)  or  on  under- 
story  (1). 
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Card  Read  No.  of 
type  b_y_  cards 


Variable 

name  Columns  Format  Description  of  variable 


17 


18 


AREA2 
GOT 

GOAL 


1  per 
site 
c  lass 
in  a 
working 
group 


19 


GOAL 


1  per 

working 

group 


NTYP 

WORK 

DBH(l) 
HT(1) 

DEN(l) 
AGE(l) 
DBH(2) 
HT(2) 

DEN(2) 
AGE (2) 
ACRE 

WHEN 


(Very  large 
reading  of 

AGEO 


33-35  13  Vegetative  or  use  type 

of  the  plot  or  subcom- 
partment . 

36-38  F3.0  Code  number  of  treatment 

needed  during  planning 
period . 

39-42  F4.1  Average  d.b.h.  of  the 

overstory  trees. 

43-45  F3.0  Average  height  of 

dominant  and  codominant 
overstory  trees. 

46-50  F5.0  Number  of  overstory 

trees  per  acre. 

51-54  F4.0  Average  age  of  over- 

story trees. 

55-58  F4.1  Average  d.b.h.  of  the 

understory  trees. 

59-61  F3.0  Average  height  of 

potential  dominants  and 
codominants  in  the  under- 
story . 

62-66  F5.0  Number  of  understory 

trees  per  acre. 

67-70  F4.0  Average  age  of  under- 

story trees. 

71-75  F5.1  Area  of  the  subcompart- 

ment  described.  Leave 
blank  if  data  refer  to 
plot,  not  stand,  data. 

76-80  F5.0  Year  of  first  growing 

season  after  inventory 
was  made . 


or  zero  value  of  IBK 
type  16  records.) 


in  first  2  columns  to  stop 


1-5 


DENO 


DBHO 


6-10 


11-15 


F5.1  Initial  age  in  yield 

table  for  the  site 
c  lass . 


F5.1  Number  of  trees  per 

acre  expected  before 
thinning  at  age  AGEO. 

F5.1  Average  stand  d.b.h.  at 

age  AGEO  with  density 
DENO. 


(First  5  columns  blank  or  with  number  larger  than  ROTA  to 
clear  cards  of  type  18.) 
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APPENDIX  1 
Listing  of  Program  TEVAP 


PROGRAM  TEVAP 

1  [INPUT,  OUTPUT,  TAPE5=  INPUT,  TAPE  6=0UTPUT,TAPF  4  =  TAPES ,  TAPE  3  =  T.\PE5  I 


FOR    WORKING  GROUP 


DEFINITIONS    OF  VARIABLES. 

A  BF  AG  I  I  , J )    =   ACTUAL    GROWING    STOCK    IN   M  BO. 

AND  AGE  CLASS  J.  C 

ACBAR1I)    =  DEFORESTED  ACRES   IN  BLOCK   I.  C 

ACFNLI  I, J,K)    =    ACRES    TO   RECEIVE    FINAL    CUT    OURING   NEXT    PERIOO   -  C 

WORKING  GROUP    I,    BLOCK   J,   AGE   CLASS  K.  C 

ACINT(I)    =   ACRES   RECEIVING    INTERMEDIATE  CUT  ANNUALLY   IN  B AL ANCEO  C 

FOREST,    WORKING  GROUP    I.  C 

ACRE    =    AREA   DF    THE    STAND   DESCRIBED    BV    THE    INVENTORY   RECORD,    IF  C 

KNOWN.   BLANK   INDICATES  RECORD  APPLIES   TO   SAMPLE   PLOT.  c 

ACRGN(I,J,KI    =  ACRES   TO  RECEIVE   REGENERATION  CUT   DURING   NEXT  c 

PERIOD  -   WORKING  GROUP    I,   BLOCK   J,   AGE   CLASS   K.  c 

ACS[(I,J,KI    =   ACRES  OF  WORKING  GROUP    I,   BLOCK   J,    SITE   CLASS   K.  c 

ACSPII.J)   =  ACRES  OF   WORKING  GROUP   I    IN   BLOCK   J.  C 

ADJ(I)    =   YEARS   IN  ADJUSTMENT   PERIOD,   WORKING  GROUP    I.  c 

AGE  I  I  I    =   AVERAGE  AGE   OF  OVERSTORYI  1  =  1 )    OR   UNDERSTORY ( I =  2 ) .  C 

AGEO  =    INITIAL   AGE    IN  YIELD   TABLE.  C 

ALLCFII.J)   =  GROWING   STOCK   GOAL   FOR   WORKING  GROUP    I,    SITE   CLASS  J.  C 

CUBIC    FEET    OF    ENTIRE    STANOS    TO  ROTATION   AGE.  C 

ALOWC(I)    =    ALLOWABLE    ANNUAL    CUT    IN    HUNDREDS    OF    CU.    FT.,    BASED   ON  c 

ACTUAL   AND  DESIRED  GROWING   STOCKS   OF   WORKING   GROUP   I.  c 

ALWEFIII    =  ALLOWABLE   ANNUAL   CUT   IN  M  BD.    FT.,   BASED  ON  ACTUAL   AND  C 

DESIRED  GROWING   STOCKS  OF   WORKING  GROUP   I.  C 

AMCAGII.J]    =   ACTUAL    GROWING    STOCK    IN   HUNDREDS   OF    CU.    FT.    FOR  C 

WORKING  GROUP   I   AND  AGE  CLASS  J.  C 

A.N6DF  I  I  )   =   M   BD.   FT.    PFR   ACRE   AT   END  OF   EACH  YEAR.  C 

ANCUTII.J]    =   AREA   /   ROTATION  FOR   WORKING  GROUP   I,    SITE   CLASS   J.  C 

ANCUVII)    =   CU.    FT.    STANDING    PER   ACRE    AT    END   OF    EACH   YEAR.  C 

ANNAC   =   TOTAL   ACRES  TO  BE   TREATED  ANNUALLY  DURING   NEXT   PERIOD.  C 

ANNBD  =   EXPECTED  TOTAL   ANNUAL   YIELD  DURING  NEXT   PERIOD   IN  M  BD.  FT.  c 

ANMCU  =   EXPECTED  TOTAL   ANNUAL   YIELO  DURING  NEXT   PERIOD   IN  CU.   FT.  c 

ARBKII)    =   AREA   OF    BLOCK    I.  C 

AREAII.JI   =  AREA  OF   SITE   CLASS  J  OCCUPIED   BY  WORKING  GROUP   I.  C 

INCLUDES   SHARE   OF   DEFORESTED   AREA.  C 

ARECP    =    TOTAL    AREA   OF   COMPARTMENT.  C 

ARESCI1)    =   ACRES    IN    SUBC  OMP  AR  TME  N  T    I.  C 

ARFTYIII    =  ACRES  OF   TYPE    I    IN  ONE   COMPARTMENT.  C 

BAR E   =   DEFORESTED  ACRES   IN  A  COMPARTMENT.  C 

BARSKI.J)   =   DEFORESTED  ACRES  OF   SITE   J    IN  BLOCK   I.  c 

BAS1II   =   BASAL   ARF  A  OF   OVER  STORY (1  =  1)   OR  UNDERSTORY! 1=2).  C 

BASC   =   BASAL   AREA  REMOVED  PER  ACRE.  C 

BASO  =   BASAL   AREA  PER   ACRE   BEFORE   THINNING.  C 

BAST  =   BASAL   AREA   PER   ACRE   AFTER    THINNING.  C 

BCAI    =    M.A.I.    IN    M   BO.    FT.    FROM    YIELO    TABLE .  C 

BOFCII)    =   M   BD.   FT.   REMOVED   PER   ACRE.  C 

BCFOIII    =   M   BD.    FT.   PER   ACRE   BEFORE   THINNING.  C 

BOFT(I)   =   M   BD.    FT.   PER   ACRE   AFTER   THINNING.  C 

BDMAI(I)   =  M.A.I.    IN  M  BD.   FT.    FROM  YIELD  TABLE   AND  ACRES   IN   SITE  c 

CLASS,    WORKING   GROUP    I.  C 

BFAGE  t I , J )   =   GROWING   STOCK  GOAL    IN  M  BO.    FT.   FOR   WORKING  GROUP  I  C 

AND   AGE  CLASS   J.  C 

BFBLKII)    =  M   BO.    FT.    IN  BLOCK    I.  C 

BF I  NT (  [ )    =  M   BD.   FT.   FROM   INTERMEDIATE   CUTS   ANNUALLY   IN  BAL  ANCEO  C 

FOR  EST ,    WORKING  GROUP   I.  C 

BFM(I)   =   M   BD.   FT.    IN   OVERS  TORY (1  =  1)   OR   IN  UNOE R S TORY ( I =  2 ) .  C 

BFMRCH   =  MINIMUM   VOLUME   TO  BE   INCLUDED   IN  BD.   FT.   GROWING  STOCK.  C 

BFS(I)    =   GROWING  STOCK   GOAL   BY  AGE  CLASS   I    FCR   ONE   SITE   CLASS  OF  C 

WORKING  CIRCLE,   M  BO.    FT.  C 

BFSPII.J)    =  M  BD.   FT.   OF   WORKING  GROUP    I    IN   BLOCK   J.  C 

BFTBII.J)    =  M  BD.   FT.    IN   TYPE   J   OF   BLOCK    I.  C 

BFTHII.J)   =  CURRENT   POTENTIAL   PERIODIC   YIELD  FROM   THINNINGS    IN  C 

BLOCK    I    AND  TYPE   J,    M  BD.   FT.  C 

BF  VOL   =   M   BD.   FT.   PER   ACRE   MINUS   VCLUME   LEFT   AS   SEED  SOURCE.  C 

CFAGEIl.J)   =   GROWING   STOCK  GOAL    IN  MERCHANTABLE  CUBIC   FEET   FOR  C 

WORKING  GROUP    I    AND  AGE   CLASS   J.  C 

CFAI   =   M.A.I.    IN  HUNDREDS  OF  CU.   FT.    FROM  YIELD   TABLE.  C 

CFBFII.J)   =  GROWING  STOCK  GOAL  FOR  WORKING  GROUP   I,   SITE  CLASS  J.  C 

CUBIC   FEET    IN   SAWLOG   TREES.  C 

CFMCII)   =  MERCHANTABLE   CU.    FT.   RE  MOVEO   PER   ACRE.  C 

CFMER(I)   =  MERCH.   CU.    FT.    IN  BLOCK   I,    IN  HUNDREDS.  C 

CFMO(I)    =   MERCHANTABLE    CU.    FT.    PER    ACRE    BEFORE    THINNING.  C 

CFMTII)    =   MERCHANTABLE   CU.    FT.    PER    ACRE    AFTER    THINNING.  C 

CFTBIIfJI    =  TOTAL   CU.    FT.    IN   TYPE   J  OF   BLCCK    I,    IN  HUNDREDS.  C 

CFVOL   =  CU.   FT.   PER  ACRE   MINUS  VOLUME   LEFT   AS   SEED   SOURCE.  C 

CM(I)    =  HUNDREDS   OF  MERCH.   CU.   FT.    IN  OVERSTORYI 1=1)   OR    IN  C 

UNDERSTORYI 1=2).  C 

CMS ( I )    =   GROWING   STOCK   GOAL   BY  AGE  CLASS    I   FOR   ONE   SITE   CLASS  OF  C 

WORKING  CIRCLE,   HUNDREOS  OF  CU.   FT.  C 

CMSPII.J)    =  MERCH.   CU.    FT.   OF   WORKING  GROUP   I    IN  BLOCK   J.  C 

CMTBII.JI   =   HUNOREDS   OF   MERCH.   CU.   FT.    IN   TYPE   J  OF   BLOCK    I.  C 

CMTHII.JI    =   CURRENT   POTENTIAL    PERIODIC    YIELO   FROM    THINNINGS    IN  C 

BLOCK   I    AND  TYPE   J,   HUNDREDS  OF  CUBIC   FEET.  C 

COMBFII)   =  MINIMUM  COMMERCIAL  CUT  OF  WORKING  GROUP    I    IN   M   BD.   FT.  C 

COMCU    =   MINIMUM   COMMERCIAL    CUT    IN   CU.    FT.  C 

CUINTIII    =  CU.   FT.   FROM   INTERMEDIATE  CUTS   ANNUALLY   IN   BALANCED  C 

FOREST,  WORKING  GROUP  I.  C 
CUMAKI)   =  M.A.I.    IN  HUNDREDS  OF   CU.   FT.   FROM  YIELD  TABLE   AND   ACRES  C 

IN   SITE  CLASS,   WORKING  GROUP   I.  C 

CUTAII.J)   =  POTENTIAL   BO.   FT.   VOLUME,   LESS   SHELTERWOOD,   AVAILABLE  C 

FROM  REGENERATION  CUTS  -  BLOCK   I,   TIMBER   TYPE   J.  C 

CUTBII.J)    =   POTENTIAL   BD.   FT.    VOLUME   AVAILABLE   FROM  REMOVAL   OF  C 

OVERWCOD  -   BLOCK    I,    TIMBER   TYPE   J.  C 

CVR(I)   =  NUMBER  OF   MAP   SQUARES   IN  TYPE    I.  C 

CYCL   =   INTERVAL   BETWEEN   INTERMEDIATE  CUTS.  C 

DATE   =   DATE  OF  MOST  RECENT  CHANGES   IN   INVENTORY  OR  OTHER  DATA.  C 

DBH(I)    =   AVERAGE   D.B.H.   OF   OVERSTORYI 1  =  1 )   OR  UNDER  STORY  I  I =2 ) .  C 

OBHO  =   AVERAGE   STAND  D.B.H.    BEFORE  THINNING.  C 

D8HT   =   AVERAGE   STANO  D.B.H.   AFTER   THINNING.  C 

DEL  AY  I  I  )    =   YEARS    DELAY    BETWEEN   REGENERATION   CUT    AND   ESTABLISHMENT  C 

OF  NEW   STAND,   WORKING  GROUP   I.  C 

OEN(l)   =   TREES   PER   ACRE   IN  0 VER S TORY ( I  =  1 )   OR  UNDER S TOR Y I  I  =  2  )  .  C 

DENC   =  TREES  REMOVED   PER   ACRE.  C 


OE'lO   =  TREES   PER   ACRE   BEFORE  THINNING. 
DENT   =   TREFS   PER   ACRE   AFTER  THINNING. 

OF3F(l,JI   =  DIFFERENCE   BETWEEN  ACTUAL   STOCK  AND  GOAL    IN  M  BO.  FT. 

FOR   WORKING  GRUUP    I   AND  AGE  CLASS  J. 
OFMCII.J)   =  0 1 FFFRENCE   BETWEEN   ACTUAL   STOCK  AND  GOAL   IN  HUNCREOS 

OF    CU.    FT.    FOR    WORKING   GROUP    I    AND    AGE   CLASS  J. 
DLEV(I)    =   GROWING   STOCK   LEVEL   FOR   THINNINGS  AFTER    INITIAL  CUT, 

WORKING    GROUP  I. 

ECIV(I)    =    ACRES    PER    STANDARD   ACRE,    SITE   CLASS    I    -    FROM    80AR0  FEET. 
ECVCF(I)    =    ACRES    PER    STANDARD   ACRE,    SITE   CLASS    I    -   FRO"   CUBIC  FEET. 
FAC(I)    =  RATIO  OF   YIELO  OF   SITE   CLASS   I    TC   STANDARD   YIELD,  BCTH 
IN  BOARD  FEET. 

FACCF(I)    =  RATIO  OF  YIELD  OF   SITE   CLASS    I    TC   STANDARD  YIELD,  BOTH 
IN   CUBIC  FEET. 

FBA(I)   =   FUTURE   BASAL   AREA  OF  OVERSTORY    (II   OR  UNOERSTORY  (2). 
F3C(I)    =   FUTURE  M  BD.   FT.    IN  OVERSTORY   II)    OR  UNOERSTORY  (21. 
FCTR(I)    =    MERCHANTABLE    CU.    FT.    PER    TOTAL    CU.    FT.    -  FACTOR. 
FCM(I)    =   FUTURE   AVERAGE  D.B.H.   OF  CVERSTORY(l)    OR   UNDERSTORY  (2). 
FDN(I)   =   FUTURE   TREES   PER   ACRE   IN  OVERSTORYI1)    OR   UNOERSTORY  (21. 
FHT ( I )    =  FUTURE   AVE.   HEIGHT   OF  OVERSTORY    (II    OR   UNDERSTORY  (2). 
FINB(I)    =    EXPECTEO   ANNUAL    YIELD    IN   M   BO.    FT.    FROM   FINAL  CUTS 

DURING  NEXT   PERIOD,   WORKING  GROUP  I. 
FI.NC(I)    =    EXPECTED   ANNUAL    YIELO    IN   CU.    FT.    FROM   FINAL    CUTS  DURING 

NEXT   PERIOD,   WORKING  GRCUP  I. 
F I  ML  1  I )   =  YEARS   BETWEEN  REPRODUCTION  CUT   AND  REMOVAL  OF  OVERWCOD, 

WORKING   GROUP   I.    INCLUOES   DELAYIII,    IF  ANY. 
FMCII)   =   FUTURE   MERCH.   CU.    FT.    IN  OVERSTORY    (II   CR  UNDER STOR Y ( 2 ) . 
FN AC  I  I  )    =   EXPECTEO  ACRES   TO  RECEIVE  FINAL  CUTS   ANNUALLY  DURING 

NEXT   PERIOO,   WORKING  GRCUP  I. 
FNBD(I)    =    ANNUAL    YIELD   FROM    FINAL    CUTS    WITH    BALANCEO   SERIES   OF  AGE 

CLASSES,   M  BD.   FT.   OF   WORKING  GROUP  I. 
FNCUIII    =   ANNUAL   YIELD  FROM  FINAL   CUTS  WITH   BALANCED  SERIES  OF  AGE 

CLASSES,   CU.   FT.   OF   WORKING  GROUP  I. 
FORET(I)   =  NAME   OF   FOREST  OR   WORKING  CIRCLE. 

FVLII)   =   FUTURE   TOTAL   VOLUME  OF   OVERSTORY(l)    OR   UNDERSTORY  121. 
GRBD(I,J,K)   =   PERIODIC  GROWTH  OF   WORKING  GROUP   I,   BLOCK   J,   AND  AGE 

CLASS   K    IN   M    BD.  FT. 
GRMCII,J,K)   =  PERIOOIC   GROWTH  OF   WORKING  GROUP   I,    BLOCK   J,   AND  AGE 

CLASS   K    IN   HUNDREDS   OF    MERCH.    CU.  FT. 
GROWB(I)    =  GROWTH  RATE  OF   SHELTER  WCOD ,   WORKING  GROUP   I,   BD.    FT.  IN 

PCT. 

GROWCII)    =  GROWTH  RATE   OF   SHELTERWOOD,   WORKING  GROUP   I,   CU.   FT.  IN 
PCT. 

GRUP(I)   =   AREA  OF   WORKING  GROUP    I    IN  A  COMPARTMENT. 

GVLBF(I)  =  TOTAL  GROWING  STOCK  GOAL  FOR  WORKING  GROUP  I,  M  BO.  FT. 
GVLCUIII    =  TOTAL   GROWING   STOCK  GOAL   FOR   WORKING  GROUP   I,   CU.  FT. 

SUM  OF   APPROPRIATE   SUOCFII.JI    FOR   SUB-SAWLOG  TREES. 
HELP!  I, J)    =   POTENTIAL   NONCOMMERCIAL   THINNING   IN   NEXT   PERIOO,  ACRES 

OF   TYPE   J    IN   BLCCK  I. 
HT(I)   =   AVERAGE   HEIGHT  OF  0 VER STOR Y I  I  =  1 )    OR   UNDER S TOR Y I  1  =  2  I . 
HTSO  =   TREE  HEIGHT   BEFORE  THINNING. 
H T ST   =   TREE  HEIGHT   AFTER  THINNING. 
IBK   =   BLCCK   SOURCE  OF    INVENTORY  RECORD. 
ISUB  =   SUBCOMPARTMENT   SOURCE  OF    INVENTORY  RECORD. 
KBK   =   BLOCK  NUMBER. 
KCMP  =  COMPARTMENT  NUMBER. 

KSUBII.J)    =    SUBCOMPARTMENT   NUMBERS   OF    MAP  SQUARES. 
KTYPII.JI    =    TYPE   CLASSIFICATION   OF    MAP  SQUARES. 
MAP   =    INOEX   TO  PRINT   (1)   OR  OMIT    (0)  MAPS. 

MIN  =   MINIMUM   AGE   FOR    STANO   TO  BE    INCLUDEO   IN  GROWING  STOCK. 

MNK   =    TEMPORARY   VARIABLE,    ASSIGNED   MEANINGS    AS  NEEDED. 

NBK  =   NUMBER  OF   BLOCKS   IN  WORKING  CIRCLE.   MUST   86   AT   LEAST  ONE. 

NCMP  =  NUMBER  OF  COMPARTMENTS    IN   WORKING  CIRCLE. 

NROW   =   NUMBER   OF   ROWS    IN  COMPARTMENT  MAP. 

NSBKII)    =    NUMBER   OF    SUBCOMP AR TME NT S    IN   BLCCK  I. 

NSIII)    =    NUMBER   OF    SITE   CLASSES    IN    WORKING   GROUP  I. 

NSUB  =  NUMBER   OF   SUBC OMP AR T MENT S    IN  WORKING  CIRCLE. 

NT Y P   =   COVER   OR   USE   TYPE   OF    INVENTORY   PLOT   OR  SUBCOMPARTMENT. 

NWGP   =  NUMBER  OF   WORKING  GROUPS   IN  WORKING  CIRCLE. 

OPBD(I)    =   ALLOWABLE   ANNUAL  CUT   IN  M   BO.   FT.   FOR  WORKING  GROUP  I 

WITH   BALANCEO  AGE   CLASSES,   REGENERATION  CUTS. 
OPCUIII   =   ALLOWABLE  ANNUAL   CUT   IN  CU.    FT.   FOR  WORKING  GRCUP   I  WITH 

BALANCED  AGE  CLASSES,    REGENERATION  CUTS. 
OPEN(I.J)    =   POTENTIAL   COMMERCIAL   THINNING   IN  NEXT   PERIOO,   ACRES  OF 

TYPE   J    IN  BLOCK  I. 
OURS   =   ACRES   IN  WORKING  CIRCLE,    EXCLUDING  OTHER  OWNERSHIP. 
PABR(I)    =  DEFORESTED  ACRES   IN  BLOCK   I,   EXCLUDING  UNITS  WITH  KNOWN 

AREA  CN   INVENTORY  RECORO. 
PAFN(I,J,K)   =   ACRES   TO  RECEIVE   FINAL  CUT   -   WORKING  GROUP   I,  BLOCK 

J,    AGE  CLASS  K   -   EXCLUDES  AREAS   ON   INVENTORY  RECORD. 
PAIBD(I)   =   P.A.I.    IN   M   BD.    FT.,   WORKING  GROUP  I. 
PAICU(I)   =  P.A.I  .    IN  HUNDREDS  OF  CUBIC   FEET,   WORKING  GROUP  1. 
PARGII.J.K]    =   ACRES   TO  RECEIVE   REGENERATION  CUT   -   WORKING  GROUP  I, 

BLOCK  J,   AGE  CLASS  K  -  EXCLUDES  KNOWN  AREAS. 
PARTY! I, J)    =    AREA   OF   TYPE    J    IN   BLOCK    I,    EXCLUDING   UNITS    WITH  KNOWN 

AREA  ON   INVENTORY  RECORO. 
PASIII,J,K)   =  ACRES  OF   WORKING  GROUP   I,   BLOCK   J,   AND  SITE  CLASS  K , 

EXCLUDING  KNOWN  AREAS. 
PASP(I.J)    =   AREA  OF  WORKING  GROUP    I    IN  BLCCK   J,   EXCLUDING  UNITS 

WITH  KNOWN  AREA  ON   INVENTORY  RECORD. 
PBFTII.J)    =  POTENTIAL   YIELO   IN  M   BO.    FT.    FROM   THINNINGS  -  BLOCK  I, 

TYPE   J  -   EXCLUDING  UNITS  OF   KNOWN  AREA. 
PBRSIII.J)   =   DEFORESTED  ACRES  OF   SITE   J    IN  BLOCK   I,  EXCLUDING 

UNITS  WITH  KNOWN   AREA  ON   INVENTORY  RECCRO. 
PCMTII.J)    =   POTENTIAL   YIELD   IN  MERCH.   CU.   FT.   FROM   THINNINGS  - 

BLOCK    I,    TYPE    J   -    EXCLUOING   UNITS   OF    KNOWN  AREA. 
PCTAII.J)   =   POTENTIAL   BD.   FT.   CUT   FROM  REGENERATION  CUTS-  BLCCK  I, 

TYPE   J  -   EXCLUDING  UNITS  OF   KNOWN  AREA. 
PCTBII.J)   =  POTENTIAL   BO.   FT.   CUT   FROM  FINAL  CUTS  -   BLCCK   I,  TYPE 

J   -    EXCLUDING   UNITS   OF    KNOWN  AREA. 
PCCFNII.J)   =   EXPECTED  YIELO   IN  CU.   FT.   FRCM  FINAL   CUTS  OURING  NEXT 

PERIOD,    BLOCK   I,    TYPE  J. 
PDCFRU.JI    =   EXPECTED   YIELD   IN  CU.   FT.    FRCM  REGENERATION  CUTS  NEXT 

PERIOO,   BLOCK   I,   TYPE  J. 
PCCUT(I)    =    ACRES    IN    AGE   CLASS   WITH   BALANCEO    SERIES   OF    AGE  CLASSES. 
PGBDl I  * JtK]   =  PERIOOIC  GROWTH   IN  M  BD.   FT.   WORKING  GROUP  I,  BLOCK 
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J,    AGE  CLASS  K,    EXCLUOING  UNITS  OF   KN  C  WN  AREA.  C 

PGMC(I.J.K)   =  PERIOOIC   GROWTH   IN  MERC H ■   CU.   FT.   WORKING  GROUP   I,  C 

BLOCK    J,    AGF    CLASS   K,    EXCLUDING   UNITS   OF    KNOWN    AREA.  C 

PHLP(I.J)    =    POTENTIAL    NONCOMMERCIAL    THINNING    IN   NEXT    PERIOD,    ACRES  C 

OF   TYPE   J    IN  BLOCK   I.   RECORDS  WITH  AREA   =  O.O,   ONLY .  C 

POORIII    =   MINIMUM    SITE    INDEX    FOR    MANAGEMENT,    WORKING   GROUP    I.  C 

POPNII.JI    =    POTENTIAL    COMMERCIAL    THINNING    IN   NEXT    PERIOD,    ACRFS   OF  C 

TYPE    J    IN   BLOCK    I.    RECOROS    WITH   AREA   =    0.0,    ONLY.  C 

PPBFII.J.KI    =    TOTAL    VOLUME    IN   M   BD.    FT.    FCR    WORKING   GRCUP    I,    BLOCK  C 

J,   AGE  CLASS  K.   EXCLUOES  UNITS  OF   KNOWN   AREA.  C 

PPCRII.JI    =   EXPECTED  YIELO   IN  CU.   FT.   FROM  REGENERATION  CUTS   -  C 

BLOCK    I,    TYPE    J   -   EXCLUDING   UNITS   OF   KNOWN   AREA.  C 

PPFNII.J)    =   EXPECTEO  YIELO   IN  CU.   FT.    FROM  FINAL  CUTS  -   8LCCK    I,  C 

TYPE    J   -    EXCLUDING   UNITS   OF    KNOWN   AREA.  C 

PPHCII.J.K)    =    TOTAL    VOLUME    IN   MERCH.    CU.    FT.    FOR   WORKING   GROUP    I,  C 

BLOCK    J,    AND    AGE    CLASS    K.    EXCLUDES    KNOWN   AREAS.  C 

PPTC(I,J,KI   =   SUM  OF   TOTAL  CU.   FT.   FOR   WORKING  GROUP   I,    BLOCK   J,  C 

AGE   CLASS   K.    EXCLUDES    UNITS   OF    KNOWN   AREA.  C 

PRET   =   PERCENTAGE   OF   TREES  RETAINEO  AFTER   INITIAL   THINNING.  C 

PRODI  I  I    =   BOARD   FEET   PER   TOTAL  CUBIC   FCOT  -  CONVERSION   FACTOR.  C 

PSII.J.KI    =   NUMBER   OF    INVENTORY    PLOTS    OF    WORKING   GROUP    I,    BLOCK    J,  C 

AND    SITE   CLASS   K.  C 

PSLVII.J)    =  BD.   FT.   VOLUME   TO  BE   SALVAGEO  -  BLOCK   I,    TYPE   J   -  C 

EXCLUOING   UNITS   OF    KNOWN   AREA.  C 

PSPLTII.J)    =   NUMBER   OF    INVENTORY   PLOTS   OF   BLOCK    I    ANO    TYPE    J.    NOT  C 

INCLUDING   UNITS    OF    KNOWN   AREA.  C 

PTBFII.J.K)   =   TOTAL   VOLUME    IN  M  8D.   FT.   FCR   WORKING  GRCUP   I,    BLOCK  C 

J,   AND  AGE  CLASS  K.  C 

PTCUII.J.KI   =   SUM  OF   TOTAL   CU.   FT.   FOR   WORKING  GRCUP   I,   BLOCK   J,  C 

AND  AGE   CLASS  K.    IN  HUNDREDS  OF  CU.   FT.  C 

PTMCII.J.KI    =    TOTAL    VOLUME    IN   MERCH.    CU.    FT.    FOR    WORKING   GROUP    I,  C 

BLOCK    J,    ANO    AGE    CLASS   K.    IN   HUNORED S   CF   CU.    FT.  C 

PUNCH. J)    =    AREA   OF    BLOCK    I,    TYPE    J   BELOW    MINIMUM    SITE    QUALITY  C 

FOR  REGULATION.   EXCLUDING  UNITS  OF   KNOWN  AREA.  C 

QUALIII    =    SITE   CLASSES   PRESENT    IN    WORKING   GROUP    I.  C 

RAGEII.JI   =  ROTATION   FOR   WORKING  GROUP   I   ANO   SITE   INDEX   J.  C 

INCLUDES   YEARS    IN   DELAY! I  )  .  C 

RGACIII    =    EXPECTEO   ACRES   GIVEN   REGENERATION   CUTS    ANNUALLY   OURING  C 

NEXT   PERIOD,   WORKING  GROUP   I.  C 

RG8DIII    =    EXPECTED   ANNUAL   YIELD    IN   M   BO.    FT.    FROM   REGENERATION  C 

CUTS   OURING  NEXT   PERIOO,   WORKING  GRCUP   I.  C 

RGCUIII    =    EXPECTED   ANNUAL    YIELD    IN   CU.    FT.    FROM   REGENERATION   CUTS  C 

DURING  NEXT   PERIOD,   WORKING  GROUP   I.  C 

HINT   =   NUMBER   OF   YEARS   FOR    WHICH   GROWTH    PROJECTION    IS   MADE   WITH  C 

SINGLE   COMPUTATION   BY   A   GROWTH   EOUATION.  C 

ROTA  =   LONGEST   POSSIBLE  ROTATION   IN  YIELD   TABLE.  C 

SACCF    =    AREA   OF   WORKING  CIRCLE    IN    STANDARD    ACRES,    FROM   CU.    FT.  C 

SAHPIII    =    POTENTIAL   NONCOMMERCIAL    THINNING    IN   NEXT    PERIOD.    ACRES  C 

IN  WORKING   GROUP    I.  C 

SANCUTII)    =    ALLOWABLE    ANNUAL   CUT    IN   ACRES.    WCRKING   GRCUP    I.  C 

SARETYII.J)    =    AREA   OF    TYPE    J    IN   BLOCK    I.  C 

SARSC    =    TOTAL    AREA   OF    SU8C0MP AR TME NT S   OF    A   COMPARTMENT.  C 

SARSPIII    =   TOTAL   AREA   OF   WORKING  GROUP   I,    INCLUDING   SHARE  OF  C 

DEFORESTED   AREA.  C 

SATHII)    =    POTENTIAL    COMMERCIAL    THINNING    IN   NEXT    PERIOD,    ACRES    IN  C 

WORKING   GROUP    I.  C 

SBARB   =   TOTAL   BRUSHY   DEFORESTED  ACRES   IN   WORKING  CIRCLE.  C 

SBARE  =   TOTAL   DEFORESTED  ACRES   IN  WORKING  CIRCLE.  C 

SBARG   =   TOTAL   GRASSY  DEFORESTED  ACRES   IN  WORKING  CIRCLE.  C 

SBDF  =  M  80.  FT.   IN  WORKING  CIRCLE.  C 

SBF(I)   =  TOTAL  M  BD.   FT.   IN  WORKING  GROUP   I.  C 

SBFRII)    =    BO.    FT.    FROM    THINNINGS    NEXT    PERIOD,    WORKING   GROUP    I.  C 

SBHII)   =   BD.   FT.   FROM  REGENERATION  CUTS  DURING  NEXT  PERIOD,  C 

WORKING  GROUP   I.  C 

SBMII.J)    =    BO.    FT.    FROM    THINNING   OURING   NEXT    PER  1 00 ,    WORKING   GROUP  C 

I.   BLOCK   J.  C 

SBSVII)    =    BO.    FT.    FROM    SALVAGE    NEXT   PERIOD,    WORKING   GRCUP    I.  C 

SCAII.J)   =  BD.   FT.   FROM  REGENERATION  CUTS  DURING  NEXT   PERIOD.  C 

WORKING  GROUP    I,    BLOCK   J.  C 

SCALE    =    ACRES    IN   ONE    MAP    SQUARE.  C 

SCBIl.JI   =  80.   FT.   FROM  FINAL  CUTS  NEXT   PERIOD,   WORKING  GROUP   I,  C 

BLOCK  J.  C 

SCFH  =  HUNCREOS   OF   MERCH.   CU.   FT.    IN  WORKING  CIRCLE.  C 

SCNII)   =  EXPECTED  YIELO   IN  CU.  FT.  FROM  FINAL  CUTS  DURING  NEXT  c 

PERIOD,   WORKING  GROUP   I.  C 

SCNB(I.J)    =  EXPECTED  YIELO   IN  CU.   FT.   FROM   FINAL  CUTS   OURING  NEXT  C 

PERIOD,   WORKING  GROUP   I,  BLOCK  J.  C 

SCNT(I)   =  EXPECTED  YIELD   IN  CU.   FT.   FROM  FINAL  CUTS  DURING  NEXT  C 

PERIOO,    TYPE   I.  C 

SCRIII    =   EXPECTEO  YIELD   IN  CU.   FT.   FROM  REGENERATION  CUTS   OURING  C 

NEXT  PERIOD,  WORKING  GROUP   I.  C 

SCRBII.JI   =  EXPECTED  YIELD  IN  CU.  FT.   FROM  REGENERATICN  CUTS  C 

DURING  NEXT   PERIOO,    WORKING  GROUP   I,   BLOCK   J.  C 

SCRTII)   =   EXPECTEO  YIELD   IN  CU.   FT.   FROM  REGENERATION  CUTS   DURING  C 

NEXT   PERIOD,   TYPE   I.  C 

SCUII.JI  =  CU.  FT.  FROM  THINNING  NEXT  PER  1 00 ,   WORKING  GRCUP   I,  C 

BLOCK  J.  C 

SCURIII   =  CU.   FT.   FROM  THINNING  NEXT   PERICO,   WORKING  GROUP   I.  C 

SCBFII)   =   TOTAL   DIFFERENCE   BETWEEN  ACTUAL   AND  GOAL   GROWING   STOCKS  C 

IN  M   BD.   FT.   FOR   WORKING  GROUP   I.  C 

SDMCII)    =   TOTAL   DIFFERENCE   BETWEEN  ACTUAL   ANO  GOAL   GROWING   STOCK  C 

IN  HUNDREOS  OF  CU.   FT.   FOR   WORKING  GROUP   I.  C 

SFNLIII    =   ACRES   FOR   FINAL  CUT  ANNUALLY   WITH  OVERwOOO   AND  BALANCED  C 

DISTRIBUTION  OF  AGE  CLASSES,   WORKING  GROUP  I.  C 

SFRII)    =  BO.   FT.   FROM  FINAL   CUTS,   NEXT   PERIOD,   WORKING   GROUP   I.  C 

SHELTI1)   =  M  80.   FT.   PER  ACRE   OF  WORKING  GROUP   I   TO  BE   LEFT  AS  C 

SEED  SOURCE.  C 

SHLII.J)   =  POTENTIAL  NONCOMMERCIAL   THINNING   IN  NEXT   PERIOD,  C 

WORKING  GROUP    I    IN  BLOCK  J.  C 

SHWDIII   =  CU.   FT.   PER   ACRE  RETAINED  AS   SEED   TREES   OR   SHELTERWDOO,  C 

WORKING  GROUP   I.  C 

SIOLA  =   TOTAL   ALLOWABLE   CUT   IN  ACRES  FOR   CNE   YEAR   IN  A   BALANCED  C 

WORKING  CIRCLE.  C 
SIDLB   =  TOTAL   ALLOWABLE  CUT   IN  M  BD.   FT.   FOR  ONE   YEAR   IN  A 

BALANCED  WORKING  CIRCLE. 
SIDLC   =   TOTAL   ALLOWABLE   CUT   IN  CU.   FT.   FOR   ONE   YEAR   IN   A  BALANCED 


WORKING  CIRCLE. 
SIFF   =   SITE  INCEX. 

SLANG   =   TOTAL   ACRFS   IN  WORKING  CIRCLE. 

SLVGII.JI   =   BO.   FT.   VOLUME   TO  8E   SALVAGEO,   BLOCK   I,   TYPE  J. 
SMCII)    =  HUNDREDS  OF   CUBIC   FFET   OF   WORKING  GRCUP   I    IN  WORKING 
CIRCLE. 

SMPL   =  ACRES  OF   TYPE   J  OF   BLOCK    I   REPRESENTED  BY  ONE    INVENTORY  PLOT 

SMSPIII    =    AREA   OF    WORKING   GROUP    I    IN    WORKING  CIRCLE. 

SCPII.JI    =  POTENTIAL   COMMERCIAL   THINNING   IN  NEXT   PERIOD.  WCRKING 

GROUP   I    IN  BLOCK  J. 
SOPTAIII    =    TOTAL    ALLOWABLE    CUT    IN    ACRES   FOR   ONE    YEAR    IN  BALANCED 

WCRKING  GROUP  I. 

SOPTBIII   =   TOTAL   M  BD.   FT.   CUT   IN  ONF   YEAR   WITH  A   BALANCEO  SERIES 

OF   AGE  CLASSES.   WORKING  GROUP  I. 
SOPTCIII    =    TOTAL    CU.    FT.    CUT    IN   CNE    YEAR    WITH    A    BALANCED   SERIES  OF 

AGE   CLASSES.   WORKING  GROUP  I. 
SPLTII.JI    =  NUMBER  OF    INVENTORY   PLOTS  REPRESENTING  TIMBER 

TYPE   J  OF   BLOCK  I. 
SSL  (  I ,  J )   =  BD.   FT.   FROM   SALVAGE   NEXT  PERICD,   WORKING  GROUP  I. 

BLOCK  J. 

SSPT   =   TOTAL   CF   INVENTORY  PLOTS   IN  WCRKING  CIRCLE. 

SSTAC    =    AREA   OF   WORKING   CIRCLE    IN    STANDARD    ACRES    FROM   BOARD  FEET. 
STACFII)    =   AREA  OF   SITE  CLASS   I    IN   STANOARO   ACRES  -  FROM  CU.   FEET . 
STRSIII    =    BO.    FT.    FROM   THINNINGS   OURING   NEXT    PERIOD,    TYPE  I. 
STCII)    =   TOTAL   CU.   FT.   OF   WORKING  GROUP    I    IN   WORKING  CIRCLE. 
STCF  =   TOTAL   CU.   FT.    IN  WORKING  CIRCLE,    IN  HUNOREDS. 

STDACIII    =  AREA  OF   SITE  CLASS   I    IN  STANOARO  ACRES  -  FROM  80.  FEET. 
STFOII)    =    8D.    FT.    FROM    FINAL   CUTS   OURING    NEXT    PERIOD,    TYPE  I. 
STHBF   =   CURRENT   POTENTIAL   PERIODIC   YIELD   FROM  THINNINGS,   TOTAL  FOR 

WORKING  CIRCLE    IN  M  BD.  FT. 
STHCM    =   CURRENT    POTENTIAL    PERIODIC   YIELD    FROM    THINNINGS,    TOTAL  FOR 

WORKING  CIRCLE   IN  HUNOREDS  OF  CUBIC  FEET. 
STHPIII    =    POTENTIAL    NONCOMMERCIAL    THINNING    IN   NEXT    PERIOO,  ACRES 

OF  TYPE  I. 

STHRII)   =   BO.   FT.   FROM  REGENERATION  CUTS   DURING  NEXT   PERIOD,   TYPE  I 
STLVIII   =   BD.   FT.   FROM   SALVAGE  DURING   NEXT   PERIOD,   TYPE  I. 
STNCIII    =  CU.    FT.   FROM   THINNING   DURING  NEXT   PERIOD,   TYPE  I. 
ST0N11)    =    POTENTIAL    COMMERCIAL    THINNING    IN    NEXT    PERIOD,    ACRES  OF 
TYPE  I. 

STRY  =   STAND  COMPONENT  USED   TO   TYPE   THE   STAND.   ENTER   1    IF  THE 

UNDER  STORY   WAS  USED.   OTHERWISE   LEAVE  BLANK. 
STYPIII    =   ACRES  OF   TYPE    I    IN  WORKING  CIRCLE. 

SUBBFILJ)   =  GROWING  STOCK  GOAL  FOR  WORKING  GRCUP   I,   SITE  CLASS  J. 

K   BD.   FT.    IN   SAWLOG  TREES. 
SUBCFII.J)   =  GROWING   STOCK  GOAL   FOR   WORKING  GROUP   I.    SITE  CLASS  J. 

CUBIC  FEET   IN  TREES  BELOW  SAWLOG  SIZE. 
SU8TYIII   =   TYPE  OF   SUBCOMPA RTMEN T  I. 

SUMCFIII    -   TOTAL   GROWING   STOCK  GOAL   FOR   WORKING   GROUP   I    IN  MERCH. 

CU.    FT.    SUM   OF    APPROPRIATE    ALLCFII.JI    FOR    ENTIRE  STANOS. 
SUNC   =   TOTAL   LOW   SITE   ACRES   IN  WORKING  CIRCLE. 

T B A ( I )    =   BASAL   AREA   AFTER   THINNING   TO   SPECIFIED  LEVEL   NOW   (1  =  1)  OR 

IN  TIME  YEARS  I  1=2). 
T8DIII    =  M  BD.   FT.   AFTER   THINNING   TO   SPECIFIED   LEVEL   NOW   (1=11  OR 

IN  TIME  YEARS  ( 1=2) . 
TCFII)   =   TOTAL   CUBIC  FEET   IN  BLOCK  I. 

TCMIII    =  HUNOREDS  OF  CU.   FT.   AFTER   THINNING  TO   SPECIFIED  LEVEL  NOW 

(1=11  OR   IN  TIME  YEARS  (1=2). 
TCSP(I.J)    =   TOTAL    CU.    FT.    OF    WORKING   GROUP    I    IN    BLOCK  J. 
T DM  1  I  )    =   AVERAGE   O.B.H.   AFTER   THINNING   TC   SPECIFIED  LEVEL  NOW 

(1=11    OR    IN    TIME    YEARS    ( 1=2 ) . 
TEM   =    TEMPORARY   VARIABLE,    ASSIGNED   MEANINGS    AS  NEEDED. 
THACIII    =   POSSIBLE   ACRES  TO   THIN  ANNUALLY  DURING  NEXT  PERIOD, 

WORKING  GROUP  I. 
THB  =  AVERAGE   POTENTIAL   VOLUME   FROM   THINNING,   M   BD.  FT. 
THBDI  I  I    =   EXPECTED   ANNUAL   YIELD    IN  M  80.   FT.   FROM   THINNINGS  CURING 

NEXT   PERIOD,   WORKING  GROUP  I. 
THC   =   AVERAGE   POTENTIAL   VOLUME   FROM   THINNING,   HUNOREDS   OF  CU.  FT. 
THCUIII    =   EXPECTEO   ANNUAL   YIELD    IN  CU.   FT.   FROM   THINNINGS  DURING 

NEXT   PERIOD,   WORKING  GROUP  I. 
THIN(I)    =    GROWING    STOCK   LEVEL,    INITIAL    THINNING,    WORKING   GROUP  I. 
TIME   =  NUMBER  OF  YEARS    IN   PLANNING  PERIOO.   BASIS  FOR   WORK  INDEX. 
TMBR  =   TOTAL   TIMBERED   AREA   IN   WORKING  CIRCLE. 

TMPO  =   TOTAL   AREA  OF   FOREST   TYPES   IN   WORKING  CIRCLE,  INCLUOING 

NONSTOCKED  TYPES. 
TOT(I)    =   TOTAL  CUBIC   FEET   IN  OVER S TOR Y 1  I  =  1 )    OR   UNO ERS TOR Y ( I  =  2  I . 
TOTAC(I)   =   TOTAL   ACRES  EXPECTED   TO  BE   TREATED   IN  ONE   YEAR  DURING 

NEXT  PERIOD,   WORKING  GROUP  I. 
TOTBD(I)    =   EXPECTED  TOTAL  ANNUAL   YIELO   IN  M   BD.    FT.    DURING  NEXT 

PERIOD,    WORKING  GROUP  I. 
TOTC  =   TOTAL   CUBIC   FEET  REMOVED  PER  ACRE. 

TOTCU(I)    =   EXPECTED   TOTAL   ANNUAL   YIELO   IN  CU.    FT.    DURING  NEXT 

PERIOD,   WORKING   GROUP  I. 
TOTO  =  TOTAL   CU8IC   FEET  PER   ACRE   BEFORE  THINNING. 
TOTT  =  TOTAL   CUBIC   FEET   PER   ACRE   AFTER  THINNING. 

TPBII.J)   =  NUMBER   OF    INVENTORY  PLOTS.    WORKING  GROUP   I.   BLOCK  J. 
TVL(I)   =   TOTAL   CU.   FT.   AFTER   THINNING  TO   SPECIFIEO  LEVEL   NOW  (1=1) 

OR    IN  T IME   YEARS  (1=2). 
TYPNM(I)   =  DESCRIPTION  OF   VEGETATIVE   TYPE   OR   USE   TYPE   NUMBER  I. 
UNCML(I.J)   =   AREA  OF   BLOCK   I    AND   TIMBER   TYPE   J  BELOW  MINIMUM 

SITE  QUALITY  FOR   TIMBER   MANAGEMENT  AND  REGULATION. 
UNIT! I  I   =   NUMBER  OF  MAP   SOUARES   IN   SUBCOMP AR TME NT  I. 
VLBFIII    =  VOLUME    IN  M  BD.   FT.   CUT   FROM   SITE  I. 
VLCU(I)   =   VOLUME    IN  CU.   FT.   CUT   FROM   SITE  I. 

WHEN  =  YEAR  OF   FIRST   GROWING   SEASON  AFTER   INVENTORY  WAS  MADE. 
WORK  =  CODE   FOR   TREATMENT   IN  NEXT  PERIOO,  ASO 

0  =   DO  NOTHING   THIS  PERIOD 

1  =   PLANT  OR  SEEO 

2  =  THIN 

3  =  SALVAGE 

<.  =  REGENERATION  CUT 

5  =  REMOVE   SEED  TREES   OR  SHELTERWCOO 

6  =   REMOVE   OVERWOOO  AND   THIN  RESIDUAL 

COMMON  ASF AG  I  3, 15) ,ACBAR( 5) . AC  SI ( 3, 5. 10), AC SP (3, 5) .ALLCFI3.10) . AMC 
1AGI 3, 15) , ANCUTI 3.10).ARBK(5I,AREA(3.10I,BARSI(5,10),BFAGE(3,15),RF 
2THI 5. 12) .8FMRCH.CFAGEI 3,15).CFBF(3.10),CMTHI5,12) . COMBF (31 .COMCU.C 
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3UTA(5,12>,CUTB(5,12),CYCL,0ATE(3>,DIEV(3>,FINL(3),F0RET(3),GRBD(3, 
45, 15) . GRMCI3.5, 15) .GROWBI 3) .GROWC (3),GVLBF(3) ,GVLCU(3I .MIN.NGK,  NC  M 
5P.NSBKI 5  I ,NSI I  31 ,N SUB, OPEN! 5,12) , POOR {31 ,PRET,RAGE (3,10),RINT,ROTA 
6,SARETY(5,20I.SARSP(3),S8ARB,SBARE,SBARG,S8FI3),SHELT(3>  ,  SHWC  (  3  )  ,S 
7LAND.SLVGI5. 12) .SMCI 3),SMSP(3).STYP(20),SUBBF(3,10) ,SU0CF ( 3, 10) ,SU 
8MCF<3),THIN( 3  )  ,  TMBR  ,  TMPO  ,  T  YPNM  1  2  0  > ,DELAY(3),ACFNLI3,5,15),ACRGN(3, 
95.15I,TIME.PDCFR(5,12).PDCFN(5,12).0PCUI3),FNCU(3I,CUINT(3),ACINT( 
13),FNBD(3)iBFlNT(3),0PBD(3) ,TEM,MNK,KN0,FCTR(2) t PROD (2) .KAK.V0MI2 ) 
2,ADJ(3),ALOWC(3),ALWBF(3l,BDMAl(3),CUMAI(3.),PAIB0(3I.PAICU(3l,D8HO 
3 tDENO t REST fDBHTp  BAST tNWGP  f HELP (5»12)»8A{2) 

C 

CALL  BASIS 

C 

C   CALL   APPROPRIATE   ROUTINE   TO  COMPUTE  AREAS. 

C 

CALL  AREA2 

C 

C    COMPUTE    PRESENT    VOLUMES,    FUTURE   GROWTH ,    ETC.    FROM    INVENTORY  DATA. 
C 

CALL  GOT 

C 

C    COMPUTE    GROWING    STOCK    GOALS    AND   AREA  CONTROL. 
C 

CALL  GOAL 

C 

C   DETERMINE   DIFFERENCES   BETWEEN   PRESENT   FOREST   AND  GOALS.    PRINT  A 

C   GUIDE  TO  MANAGEMENT • 

C 

CALL  GUIDE 
CALL  EXIT 
ENO 

SUBROUTINE  BASIS 

C 

C  TO   INITIALIZE  OR  READ  VARIABLES   THAT   APPLY   TO  THE   WORKING  CIRCLE. 
C 

COMMON  A  B  FAG  I  3 , 15) , AC  BAR (5I,ACSI(3,5,10),ACSP(3,5),ALLCF(3,10),AMC 
1  AG  I  3, 15 ) , ANCUT (3,10),ARBK(5),AREA(3,10),BARSI(5,10),BFAGE(3,15),BF 
2TH(5,12),BFMRCH,CFAGE{3,15),CFBF(3,10),CMTH(5,12) ,C0MBF(3I ,COMCU,C 
3UTA(5,12I,CUT8(5,12),CYCL,DATE(3),DLEV(3),FINL(3),F0RET(3I,GR8D(3, 
45,  15) ,GRMC 13,5*15), GROWS  I  3 ) .GROWC (3I,GVLBF(3),GVLCU(3),MIN,NBK,NCM 
5P,NSBK(5),NS1(3I,NSUB,0PEN(5,12) , POOR! 3) ,PRET,RAGE(3,10I,RINT,R0TA 
6,SARETY( 5, 20) ,SARSP( 3),SBARB,SBARE,SBARG,SBFI3),SHELT(3) , SHWD (3) , S 
7LAND,SLVG(5,12), SMCI 3),SMSP(3),STYPI20),SUBBF(3,10),SUBCF(3,10),SU 
aMCF(3),THIN(3 I , T MBR , TMPO , T YPNM I  2 0  I ,DELAY(3),ACFNL(3,5,15),ACRGN(3, 
95,15),TIME,P0CFR(5,12I,P0CFN(5,12) , OPCU I  3 ) , FNCU C 3  I ,CUINT(3I,ACINT( 
1 3) , FNBDI 3) ,BFINT (3) ,OPBD 1 3 ) ,TEM , MNK.KNO , FCTR ( 2 ) , PROD ( 2  I , KAK, VDM  (  2  I 

2 ,  AO J ( 3 ) , ALOWC 13) , ALWBF ( 3  I , BOM A  I (3) ,CUMA I(3),PAIBD(3),PAICU(3I , DBHO 

3.  DEN0,  REST,  DBHT  ,BAST,NWGP,HELP(5,12),BAI2) 

C 

C    INITIALIZE   VARIABLES   APPLICABLE   TO   THE   WORKING  CIRCLE. 
C 

MNK    =  0 
NSUB   =  0 
SBARB  =  0.0 
SBARE   =  0.0 
SBARG  =  0.0 
SLAND  =  0.0 
TEM  =  0.0 
TMBR  =  0.0 
TMPO  =  0.0 
00   1  1=1,5 
AC  BAR  I  I )    =  0.0 
ARBKI I )    =  0.0 
NSBKI I  )    =  0 
OG    1  J=l,20 

1  SARETYI  1  , J  )    =  0.0 
00  2  1=1,20 

2  STYPI  I  )   =  0.0 
DC   3  1=1,3 

AC  I  NT  I  I )    =  0.0 
ALOWCI I )   =  0.0 
ALWBF I  I )   =  0.0 
BDMA I  II)   =  0.0 
BF INT  I  I  )   =  0.0 
CUINT I  I  I    =  0.0 
CUMAII  I  )   *  0.0 
FNBOI I )   =  0.0 
FNCU I  I )   =  0.0 
OPBDI I )   =  0.0 
OPCUl  I  )    =  0.0 
PAIBDI I )    =  0.0 
PAICUI  I  I   =  0.0 
DC   3  J=l,5 
ACSPI  I,  J)   =  0.0 
DC   3  K=l,10 

3  ACSI I  I , J,K I   =  0.0 
00  4   1  =  1.3 

00   4  J=l,5 
DO  A  K=l,15 
ACFNLI I,J,K)   =  0.0 
ACRGNI I,J,K)   =  0.0 
GRBDI I,J,K)   =  0.0 

4  GRMC  I  I  ,  J,  K  I    =  0.0 
DO  5  1=1,5 

DC  5  J=l,10 

5  BARS1I I.J)   =  0.0 
DO   6  1=1,3 
GVLBFI I  I   =  0.0 
GVLCUI I )   =  0.0 
NSI I  I  )    =  0 
SARSPI I )   =  0.0 
SUMCFI I )   =  0.0 
SB  F I  1 )   =  0.0 
SMCI I )   =  0.0 
SMSPI 11=0.0 

00   6  J=l,  10 
ALLCFII.JI   =  0.0 
ANCUTI I.J)   =  0.0 
ARE  A I  I.J)    =  0.0 


CFBFI I.J)    =  0.0 
SUBBFI I.J)    =  0.0 
SUBCFI  I.JI    =  0.0 

6  CONTINUE 
DC   7  1=1,3 
DC  7   J=l, 15 
ABFAGI  I.J)   =  0.0 
AMCAGI I.J)   =  0.0 
BFAG6  M.J)   =  0.0 

7  C F AGE  (I.J)   =  CO 
DC   8  1=1,5 

00  8   J=l , 12 
BFTHI I , J  I   =  0.0 
CM TH I  I , J )    =  0.0 
CUTAI  I  , J  I    =  0.0 
CUTBI 1 . J  )   =  0.0 
HELP  I I.JI   =  0.0 
OP  EN  I I.JI   =  0.0 
PCCFNI I, J)   =  0.0 
PCCFH I  I , J  I   =  0.0 
SLVGI I, J)   =  0.0 

8  CONTINUE 
DC   9  1=1,2 
BAI  I  )    =  0.0 
FCTR I  II    =  0.0 
PRODI  I  I    =  0.0 
VCMI  I  I    =  0.0 

9  CONTINUE 

C 

C   READ   INITIAL   VALUES   OF   APPROPRIATE  VARIABLES. 

C 

READ   15,14)    I FORET ( I  1,1  =  1,3) 
14    FCRMAT  (3A8I 

READ    15,16)    I TYPNMI  I  I , 1  =  1,20) 
16   FORMAT  (8A10) 

READ    (5,18)  NBK,NCMP,NWGP,MIN 
18    FORMAT  (414) 

READ   (5,20)   ROTA,  C YCL , R 1  NT , COMCU , B FMRCH , TIME 
20   FORMAT  (6F8.3) 

READ  (5,23)  GROWBI  1 ) , GRO WC (  1 ) , F I NL I  1  I , OLE V ( 1  I , TH I N I  1 ) , POOR ( 1  I ,SHEL 
1T(  1 ) ,SHWO(  1 1  ,COMBF(  1),DELAY(1I,ADJ(1) 

23  FORMAT    ( 2 F 5. 3 , 9F 4 . 1  I 

READ  (5,23)  GROWB I  2  I • GRO WC ( 2  I , F I NL I  2 ) . DL E V ( 2 ) , TH I N ( 2 ) . POOR  I  2  I , SHEL 
IT ( 21 , SHWOI 2) ,C0M8F(2I ,DELAY(2I,ADJ(2) 

C 

C    READ    ROTATION    LENGTHS.    ENTER    RAGEIKAK.l)    FOR    SITE    INDEX    10,    RAGE ( KAK , 2 ) 
C   FOR   SITE    INDEX  20,   ETC.,   EVEN   THOUGH   SITES  BELOW   POORIKAKI   WILL   NOT  BE 
C   MANAGED.   THIS  KEEPS   ARRAYS   IN  ORDER   EVEN   IF   PCOR(KAK)    VARIES  BY 
C   WORKING  GROUP. 
C 

READ   (5, 241    IRAGEI  1, I ) , 1  =  1 , 101 

24  FORMAT    [ 10F4.0) 

READ   (5,24)    IRAGEI 2, I  I  , 1  =  1, 101 
RE  AO   (5,14)    ( DATE! I  I , 1  =  1, 3) 

C 

C   PRINT   PAGE   TYPE  4  -   RECORD  OF  VALUES  READ   BY   THIS  ROUTINE. 

C 

WRITE  16,39) 

39  FORMAT   I 1H1, ///, 61X, 1 1HPAGE   TYPE  4) 
WRITE  (6,40) 

40  FCRMAT    ( 1H0. 39X. 53HREC0RD  OF   MANAGEMENT  DECISIONS   AND  CURRENT  COND 
1  IT  IONS) 

WRITE    (6,41)    I FORETI I ) , 1=1, 31 

41  FCRMAT    (1H    .  56X , 3A 8 , / / I 
WRITE    (6,42)  NBK.NCMP 

42  FORMAT    (  1H    , 10X . 1 8HNUMBER    OF    BLOCKS  - , I  3  , 32 X , 24 HNUMBER    OF   COM  PART  M 
1ENTS  -,14) 

WRITE    16,43)  MIN.CYCL 

43  FORMAT   I 1H0. 10X. 31HMINIMUM   AGE   FOR  GROWING   STOCK  - , I  3 , 1 9X , 32HLENGT 
1H  OF   CUTTING  CYCLE,   YEARS  -,F5.0) 

WRITE    (6,44)    BFMRCH.R INT 

44  FORMAT    (  1H0 , 10X , 37HM I N I  MUM   M  BD.   FT.   FOR   GROWING   STOCK  -.F5.1.11X, 
136HLENGTH  OF   PREDICTION   PERIOD,   YEARS  -.F4.0) 

WRITE   (6,45)  TIME 

45  FORMAT   I  1H0 , 1  OX , 34HLENGTH  OF   PLANNING   PERIOD,   YEARS  -,F4.0,/1 
WRITE  16,461 

46  FORMAT    I  1  HO , 5 8 X , 4HP I N E , 1  OX , 6H SPR UC E ) 
WRITE  16,471 

47  FORMAT    ( 1H  ,58X,5HGR0UP,9X,5HGR0UPI 
WRITE    16,48)   POOR ( 1 ) , POOR ( 2  I 

48  FORMAT    I  1  HO , I  OX , 3 1 HLOWE ST   SITE  CLASS   TO  BE   MANAGED, 14X.F7.1.8X.F7. 

11) 

WRITE    16,49)    ADJ I  1  I ,ADJ I  2) 

49  FORMAT    ( 1H0. 10X. 34HLENGTH   OF    ADJUSTMENT    PERIOD,    YE ARS , 1 1 X , F7 . 1 , 8X , 
1F7.  1  ) 

WRITE    (6,50)    SHELTI 1 ) .SHELT 121 

50  FORMAT    I 1H0. 10X.35HM   BD.   FT.   TO  BE   LEFT  AS   SEED   SOURCE. 10X.F7.1.8X 
1.F7. 1  I 

WRITE    (6,51)    SHWOI II , SHWDI2I 

51  FORMAT    I 1H0, 10X, 33HCU.   FT.   TO  BE   LEFT  AS   SEED   SOURCE. 12X.F7.1.8X.F 
17.1 ) 

WRITE    (6,53)    F1NLI 1 ) ,FINL ( 2) 
53  FORMAT    I  1H0,  10X, 38HYEARS   TO  LEAVE  OVERWOOD   AS   SEED  S0URCE.7X.F7.1, 
18X.F7.1) 
WRITE    (6,55)    DELAY! 1 ) .DELAY! 2) 
55   FORMAT    I 1H0. 10X. 37HEXPECTED  DELAY   IN  REGENERATION,   Y E ARS , 8X , F7 . 1 , 8 
1X.F7.1) 
WRITE    16,57)   GROWBI 1 ) .GR0WBI2) 

57  FORMAT    I 1H0. 10X, 38HBD.   FT.   GROWTH  OF   SHELTERWCOO.  PERCENT.7X.F8.2, 
17X.F8.2) 

WRITE    (6,58)   GROWC! 1 ) .GROWC 121 

58  FORMAT    I  1  HO , 10X , 38 HCU .   FT.   GROWTH  OF   SHELTER WOOD.    PERCENT. 7X.F8. 2. 
17X.F8.2) 

WRITE    (6,60)    THIN! 1) , THIN! 2) 

60  FORMAT    I  1H0.  10X,  35HST0CKING  LEVEL   FOR   INITIAL  THINMNG.10X.F7.1.8X 
1, F7.  1  ) 

WRITE    16,61)   DLEVI 1  I ,DLEV(2) 

61  FORMAT    I 1H0. 10X, 36HST0CKING   LEVEL.   SUBSEQUENT   TH I NN I NGS . 9X , F 7 . 1 , 8X 
1.F7.  1  I 
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RD .   FT.  ,  12X.F7. 1 ,8X,F 


WRITE    ((,,631   COMBF  I  1  )  .COMBF  (2) 
61   FCRMAT    (  1HC,  10X.33HMINIMUM   COMMERCIAL  CUT, 
17.11 

MR  I T E    16,641  COMCU.COMCU 
64   FORMAT    1 lHOi lOXi 31HMIN1MUM   COMMERCIAL   CUT,    CU.    F  T  .  ,  1 4  X  ,  F7  .  1  ,  8  X  ,  F7  . 
Ill 

WRITE  (6,70) 

70   FORMAT    1 1H0, //, 1 IX, 22HCU6IC    FEET    IN  HUNDREDS) 
RETURN 
END 

SUBROUTINE  AREA2 

TO  COMPUTE    TYPE    AREAS   WHEN   COMPARTMENT    AREAS    ARE    NOT  KNOWN. 

COMMON  ABFAG(3,15I,ACBARI5),ACSI(3,5,10I,ACSP(3,5),ALLCF13,10I ,AMC 
1  AG  I  3, 15 1 .ANCUTI 3,10],AR8KI5).AREA(3.10I,BARSII5,10),BFAGE(3,15),8F 
2THI 5, 121 , BFMRCH.CFAGE (3,15),CFBF(3,10),CMTH(5,12I ,C0M8F1 3) ,COMCU,C 
3UTAI5,12I,CUTB(5,121,CYCL,0ATE(3I,DLEV(3I,FINL(3I,F0RET(3),GRBD(3, 
45, 151 ,GRMC( 3,5, 151 ,GROWB( 3) ,GROWC (3).GVLBF(3),GVLCU(3I,M1N,NBK,NCM 
50,NSBK(51,NSII3) ,N SUB, OPEN  I  5, 12  I  , POOR  I  31  , PRET ,RAGE  I  3, 101, R INT, ROT  A 
6,SARETY(5,20I,SARSP(3) , SB AR B , SB AR E , SB ARG , SBF ( 3 ) , SHELT ( 3) .SHWCI3) ,S 
TLAND.SLVGl 5, 121 , SMC  I 3),SMSP(3),STYP(20) , SUBBFI 3, 1 0 ) , SUBCF ( 3 , 1 0 1 , SU 
8MCFI3),THIN(3> , TMBR ,TMPO,TYPNM(201,DELAY(3),ACFNL(3,5,15),ACRGNI3, 
95,15I,TIME,PDCFR(5,12I,P0CFN(5,12),0PCU(3),FNCU(3),CUINT(3),ACINT( 
13),FNBC(3),BFINT(3l,OPBDI3l, TEM , MNK , KNO , FC TR I  2  I  , PROD  I  2)  , KAK , VOM ( 2  I 
2,  AD J  I  3  I , ALOWCI 31 ,ALWBF I  3) , BDMA I (31 ,CUMAI (3l,PAleD(3),PAICU(3l,0BH0 
3,0EN0,REST,DBHT,BAST,NWGP,HELPI5,12) ,BA(2) 

DIMENSION  SPL1 5  I , SPLT I  5, 12) ,TMTY(5) ,DBH(2) , HT ( 2  I , DEN ( 2 ) , AGE ( 2 ) 

INITIALIZE  VARIABLES   DEFINED  BY   THIS  SUBROUTINE. 

00  2  1=1,5 
S PL  I  I  )    =  0.0 
TMTYI I )    =  0.0 
00  2  J=l,12 
2  SPLT(I.J)   =  0.0 
TMPO  =  0.0 

READ   AREAS    OF    BLOCKS   AND   OF   NON- TIMBER  TYPES. 

READ    (5,5)    I AR6K I  I  I , I  =  1 , NBK  ) 

5  FORMAT  (5F8.1) 
DC  7   1=1, NBK 

READ   (5,6)    I SARETYI I , J) , J=13,20) 

6  FORMAT  I8F8.1) 

7  CCNTINUE 

COMPUTE  TOTAL   AREAS  OCCUPIED  BY   TIMBER  TYPES. 

00    11    1=1, NBK 

TEM  =  O.C 

DC   10  J=13,20 

10  TEM   =   TEM    ♦    SARETYI I , J ) 
TMTYI  I  )    =    ARBKI  I  1    -  TEM 

11  TMPO  =   TMPO  ♦   TMTYI I ) 

READ  INVENTORY  RECORDS  TO  COUNT  THEM  BY  BLOCK,  TYPE ,  ETC.  LAST 
RECORC  HAS  ZERO  OR  VERY  LARGE  VALUE  FOR  IBK  TC  STCP  PROCESSING. 
LOGICAL   UNIT   4  HOLDS   THE    INVENTORY  TAPE. 

15  READ   (4,16)    IBK, KOMP, I  SUB , OTR 1 , 0 TR 2 , SECT, TOWN, RANG, SITE, STRY.NTYP, 
1WCRK.DBHI  1  )  ,HT(  1 1 ,DEN I  1 ) ,AGE I  1)  ,DBHI2)  ,HTI2I , DEN  I  2  I  , AGE  I  2  I , ACRE.WH 

2EN 

16  FORMAT  1I2,I4,I3,3A3,2A4,F4.0,F2.0,I3,F3.0,F4.1,F3.0,F5.0,F4.0,F4. 
1LF3.0.F5.0,  F4.0,F5.1,F5.0) 

IFIIBK   . EQ .   0   .OR.    IBK   .GT.   NBK I   GO  TO  20 
I F ( ACRE   .EC  0.0)  GO  TO  17 

SARETYI IBK, NTYP)    =   SARETYI IBK,NTYP)    +  ACRE 
TMTYIIBK)    =   TMTYIIBK)    -  ACRE 
GO  TO  15 

17  SPLTI IBK, NTYP)    =   SPL T I  I BK , N T YP I    +  1.0 

GO  TO  15 

C 

C  TOTAL  PLOTS  BY  BLOCK. 
C 

20  DC   21    1=1, NBK 
DC  21  J=l,12 

21  SPL(I)   =   SPL(I)    ♦  SPLTII.JI 


COMPUTE    TYPE    AREAS   WITHIN    EACH  BLOCK. 
DO  26    1=1, NBK 

IFISPLI  I  )    .EO.   0.01   GO  TO  26 
TEM  =   TMTYI I  I    /   SPL I  I ) 
00   25   J=l,  12 

SARETYII.J)    =    SARETYII.J)    +    (SPLTII.JI    »  TEM) 

25  CCNTINUE 

26  CONTINUE 

SUM  TYPE  AREAS  TO  GET   BLOCK  AND   WORKING  CIRCLE  TCTALS. 


DO  30  1=1, NBK 
DO  30  J=l,20 

STYPIJ)    =    STYPIJI    *  SARETYII.J) 

30  CONTINUE 
DC   31   1=1, NBK 

SBARB  =  S  BARB  ♦  SARETYI  1,111 
SB  ARG  =  SBARG  ♦  SARETYI 1.12) 
AC  BAR (  I  I    =   AC  BAR (  I  )    ♦  SARETYII.il) 

31  CONTINUE 

DO  32   1=1, NBK 
DO  32  J=l,5 
MNK  =   J   ♦  5 

ACSPI1.I1  =  ACSPIl.Ii   ♦  SARETYII.J) 

32  ACSPI2.II   =  ACSPI2.II   ♦   SARETYI I , MNK) 
SBARE  =  SBARB   ♦  SBARG 

00  33  1=1, NBK 

SLANO  =   SLAND  +   ARBKI I  I 


SARETYI 1 ,12  1 


DC   33  J=1,NWGP 

SMSP(J)    =    SMSPIJI    ♦  ACSPIJ.I) 

33  CCNTINUE 

C 

C   WRITE   PAGE   TYPE   5  -   AREAS  OF   TYPFS   AND  WORKING  GROUPS. 
C 

WRITE  (6,341 

34  FORMAT    I  1H 1 ,////, 59X . 1 1HP AGE   TYPE  5) 
WRITE    16,35)    I FORET I  I  ) , I  =  1 , 31 

35  FORMAT  I 1H0, 4  8X  , 32HAREAS  OF  TYPES  IN  WORKING  CIRCLE/1H  ,54X,3A8/1H 
10, 30X, 10HC0VER  TYPE, 1  1 X , 5HACRE S , 6X , 1H» , 6 X , 1 OHCOVER  TYPE, 1 IX , 5HACRE 
2S,/> 

DO  37   1=1, 10 
J  =   I   <■  10 

WRITE    16,361    I .TYPNMI  I  ) , STYPI  I  I  , J.TYPNMI Jl  ,STYP I Jl 

36  FORMAT  I1H0,28X,12,2X,A10,4X,F12.1,4X,1H»,4X,I2,2X,A10,4X,F12.1) 

37  CCNTINUE 

WRITE    (6,381  SLANO 

38  FORMAT    I  1  HO , 7 3 X ,  10 HTO T AL    AR EA , 2X , F  1 2 .  1  ) 
WRITE    [6,391    SMSPI  II , SMSPI2I , SBARE 

39  FORMAT  I  1HC , / / , 2 2 X , 1 2  HP  I NE  GROUP  - , F 1 2 . 1 , 6X , 14H SPRUC E  GROUP  -,F12. 
11,3X,18HCEF0RESTED   ACRES  -, F12.ll 

C 

C    PRINT   PAGE    TYPE    6   -    SUMMARY   OF    AREAS    BY   BLOCK   AND   WORKING  CIRCLE. 

C 

WRITE  16,401 

40  FORMAT   I 1H1,////,59X,  11HPAGE   TYPE  6) 
WRITE  16,41) 

41  FORMAT    I  1HO,44X,40HTOTAL    AREAS   OF    BLOCKS    AND    WORKING  CIRCLE1 
WRITE   16,42)    I FORETI I  1 , 1  =  1, 31 

42  FORMAT    I 1H  ,53X,3A8i 
WRITE  (6,43) 

43  FORMAT  I 1H0, //,4X, 5HBL0CK , 10X , 5HT0TAL , 14X ,44H*»»»»«  PLANTABLE  ACRE 
IS   FOREST   SOIL   »«*«»««**, 19X,23HF0REST   ANO  REGENERATING) 

WRITE  16,44) 

44  FORMAT  I  1H  , 4 X , 3HN0. , 1 1 X , 5H ACRE S , 1 4X , 6HBR L SH Y , 1 3 X , 6HGR AS S Y , 1 4 X , 5HT 
10TAL , 19X.4HP1NE, 1 3X , 6 HSPRUC E , / / I 

DO    51    1=1. NBK 

WRITE  16,50)  I, ARBKI  I  I .SARETYI 1,11 ) .SARETYI I  , 1 2 )  , ACB AR I  I ) , ACS P ( 1 , I 
1 ) , ACSP (2,11 

50  FORMAT  (1H0,4X,I2,8X,F10.1,10X,F10.1,9X,F10.1,9X,F10.1,13X,F10.1,9 
lX.FlO.l) 

51  CCNTINUE 

WRITE   (6,521    SLAND, SBARB, SBARG, SBARE, SMSPI 11, SMSPI 2) 

52  FCRMAT  (1H0,//,4X,5HT0TAL,6X,F10.1,10X,F10.1,9X,F10.1,9X,F10.1,13X 
UFL0.lt9XtF10.il 

WRITE  (6,601 

60  FORMAT    ( 1H0,///,55X,21HDESIGNATI0NS   OF  TYPESI 
DC   62  1=1,10 

J  =   I   +  10 

WRITE    (6,61)    I , TYPNMI I ), J, TYPNMI J) 

61  FORMAT    I  1H0.43X, 1 2 , 4X , A  10 , 6X , 1H* ,6X, I  2 ,4X ,A10) 

62  CCNTINUE 
RETURN 
END 

SUBROUTINE  VOLS 

C 

C   TO  CONVERT   TOTAL   CU.   FT.    TO  MERCH.   CU.   FT.   AND   TO  BD.  FT. 

C 

COMMON  ABFAG13.15),ACBARI5I,ACSII3,5,10I,ACSPI3,5I,ALLCFI3,10I , AMC 
1AGI 3, 15) .ANCUTI 3, 101 , ARBK I5),AREAI3,10I,BARSII5,10I , B F AGE  I  3 , 1 5 ) , 8 F 
2THI 5, 121 , BFMRCH.CFAGE! 3, 15I,CFBF(3,10I .CMTHI5. 12) t COMBF ( 3 ) .COMCU.C 
3UTA15,  12) ,CUTB( 5, 12) .CYCL.DATE (31 ,DLEV(3) ,FINL (31 .FORET (3) .GRBDI3, 
45,15).GRMC(3,5,15),GRCWBI3I ,GROWC I  3) ,GVLBF I  3 ) .GVLCUI 3  > .MIN.NBK.NCM 
5P,NSBKI5).NSII3I,NSUB,0PEN(5,12I, POOR ( 3) , PRET, RAGE (3, 10) ,R1NT,R0TA 
6,SARETYI5,20),SARSPI3),SBARB,SBARE .SBARG, SBF 13) .SHELT (3) . SHWD I  3 ) ,S 
7LAND. SLVGI 5. 12) . SMC ( 3),SMSP(3),STYP(20I,SUBBF(3,10I, SUBCF  (3,  10  1  ,SU 
8MCF(3),THIN(3), TMBR, TMPO, TYPNM I  2 0 ) , OE L AY  I  3  I  , ACFNL I  3 , 5 , 1 5 ) , AC RGN I  3 , 
95,15),TIME,PDCFR(5,12),PDCFN15,12I  .OPCUI 3) ,FNCU I  3 ) ,CUI NT  I  3  I , AC  I  NT  I 
13).FNBDI3),BFINTI3),0PBD(3),TEM,MNK,KN0,FCTRI2I,PRCD(2I,KAK,VDM(2) 

2,  A0J( 31 , ALOWCI 31 , ALWBF ( 3  I ,B0MAI (31 ,CUMAI 13),PAIB0(3),PA1CUI3) , DBHO 

3.  DEN0.REST.DBHT.BAST.NWGP.HELPI5.12) ,BA( 2) 

C 

OC  2  1=1,2 
FCTRI II   =  0.0 
2   PROD  I  II  =0.0 

I F I KAK   .EQ.   2)   GO   TO  20 
00   14    1=1, KNO 

C 

C    COMPUTE   MERCH.    CU.    FT.    OF    FIRST  SPECIES. 
C 

IFIVDMI  I  I    .LT.   5.01   GO  TO  14 
IFIVOMI I )    .GT.   6.7)   GO  TO  4 
FCTR(I)   =   0.26612  *  VDMII)   -  1.12689 
GO  TO  8 

4    IFIVDMI  I  )    .GT.    10.41   GO   TO  6 

FCTRII)   =   3.46993  -   0.12017   »  VDMII) 
GO  TO  8 

6   FCTRII)   =   0.99666  -   0.66932   /  VDMII) 


13.41984    /  VDMIII 


C   COMPUTE   BD.   FT.   OF   FIRST  SPECIES. 
C 

8    IFIVCMII)    .LT.    8.0)    GO   TO  14 
IFIVOMIII    .GT.    11.9)   GO  TO  10 

PRODI  I)    =   0.  87783  *  VOM(I)    *   0.00660  »  8AII)   -  7.27957 
GC  TO  14 

10   PRODIII   =   5.10752  ♦  0.10712  *   VDMII)    ♦   0.00185   »   BAII)   -  36.20229 

1   /  VDMI I  I 
14  CCNTINUE 

RETURN 
20  DC  32   1=1, KNO 

C 

C  COMPUTE  MERCH .  CU.   FT.  OF   SECOND  SPECIES. 


IFIVCMl  I  I 
IFIVDMI  I  I 

FCTRII)  =  0.28253 
GC  TO  26 


5.01  GO  TO  32 
6.8)   GO  TO  22 

VDMII)   -  1.19723 
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22   1 F I VOM ( 1 )    .GT.    1C. 0)   GO   TO  24 

FCTRII)  =  3.17119  -  11.776b8  /  VDMII1  -  0.10560  *  VDM ( I ) 
GO  TO  26 

24   FCTRII)   =   0.98488  -   0.45681    /  VOMII) 

C 

C   COMPUTE   BO.    FT.   OF   SECCNO  SPECIES 
C 

26    IFIVDMII)    ,LT.   8.0)   GO   TO  32 
28    IF  I VDM I  I  I    .GT .    11.5)   GO  TO  30 

PRODI  I)   =   0.86587  *   VDMII)   -  6'.54505 

GO  TO  32 

30  PRODII)  =  11.21673  -  71.48795  /  VOMII)  -  0.  13545  »  VDM I  I  I 
32  CCNTINUE 

RETURN 

END 

SUBROUTINE  CUTS 

C 

C  TO  ESTIMATE   INCREASE    IN  AVERAGE   D.B.H.   OUE   TO  THINNING. 
C 

COMMON  A8FAG(3,15),ACBAR(5),ACSII3,5,10),ACSPI3,5>,ALLCFI3,10),AMC 
1 AG (3, 15),  ANCUT I3,10),ARBK(51,AREAI3,10),BARSI(5,10) ,BFAGE(  3, 151  ,BF 
2THI 5, 121 ,BFMRCH,CFAGE I3,15),CFBFI3,10),CMTH!5,12),C0MBFI3) ,CCMCU,C 
3UTAI 5, 12),CUT8(5,12> .CYCL.OATEl 3 ),DLEVI3),FINLI3I,F0RETI3),GRBDI3, 
45,15),GRMCI3,5,15),GR0WB(3),GR0WCI3),GVLBFI3).GVLCUI3),MIN,NBK,NCM 
5P.NSBK(5),NSII3l,NSU6,OPENI5,12) .POOR I3),PRET,RAGEI3,10),RINT,R0TA 
6,SARETVI5,20),SARSPI3).SBARB,SBARE,SBARG,SBFI3) , SHEL T I  3 ) , SHWD I  3 )  .S 
7LAND.SLVGI 5, 12) , SMC l3),SMSPI3),STYPI20),SUBBF(3.10),SUeCFI3,10),SU 
8MCF(3I.THINI3),TMBR, TMPO, TVPNM I20),DELAYI3I,ACFNL(3,5,15),ACRGNI3, 
95,15>,TIME,PDCFRI5,12),PDCFNI5,12),0PCU(3),FNCUI3),CUINTI3),ACINT( 
13).FNBOI3),BFINT(3),0PBDI3l,TEM,MNK,KNO,FCTRI2),PR0DI2),KAK,VDMI2) 

2,  ADJ(  3) , ALOWC I3I,ALWBF(3),BDMAII3),CUMAII3I,PAIBDI3>,PAICUI3) , DBHO 

3,  CEN0,REST,0BHT,BAST,NWGP,HELPI 5, 12] ,BA(2) 

C 

I F I DBHO    -IT.    9.4)    GO    TO  30 

C 

C  COMPUTE  D.B.H.  IF  DBHO  IS  LARGE  ENOUGH  FOR  BASAL  AREA  TO  REMAIN  CONSTANT. 
C 

PRET   =  100.0 

DO   21  KJ=1,100 

I F I PRET   .LT.   50.0)   GO   TO  5 

IFIKAK   .EO.   2)   GO   TO  1 

DBHE  =  0.73365  ♦  1.02008  »  DBHO  - 
14   »    I  PRE  T   -   50.01   *   I PRET  -  50.0) 

GO   TO  11 
1   DBHE   =   CBHO   «    1.05308  -  0. 

GO   TO  11 
5    IFIKAK   .EQ.   2)   GO   TO  6 

PDBHE  =  0.49401  *  0.71890 
1   +   0.12616   *  ALOGIOIOBHO) 

GO  TO  10 


TEM   +    0.0012539    »    TEH   »  TMPY 


50.0)    -  0.0001 


IPRET   -  50.01 


AL0G10IDBH0) 
ALQG10IPRET) 


0.22530   «  AL0G10IPRET) 


6  PCBHE 

10  CBHE  = 

11  I DBHE 
DBHE  = 
DBHE  = 
DENE  = 
NCENE 
DENE  = 
BASE  = 
NBASE 
BASE  = 
BASE  = 
TMPY  = 


0.5 


DBHE   *   DBHE   *  DENE 


=   0.26136   ♦   0.93849  *  ALOGIOIOBHO) 

10. C   »»  POBHE 
=   CBHE     «  10.0 
I  CBHE 

OBHE   *  0.1 
DENO  «   PRET  » 
=   DENE   ♦  0.5 
NDENE 
0.0054542 
=   BASE   »    10.0  +  0.5 
NBASE 

BASE   *  0.1 

0.0054542   *   DBHE   »  OBHE 
TEM   =   BASE  -  REST 
I F I TEM   • LE .   TMPY)   GO  TO  70 
IFITEM    .LT.    4.0)    GO   TO  20 
PRET   =   PRET  -  1.0 
GO   TO  21 

20  PRET   =   PRET  -  0.3 

21  CONTINUE 
GO  TO  70 

C 

C    COMPUTE    D.B.H.    IF    BASAL    AREA    INCREASES    WITH  D.B.H. 
C 

30   PRET   =  40.0 

I F I DBHO   -GT.    7.0)   PRET  =  70.0 
DC   65  J=l,100 

IFIPRET   .GE.    50.0)   GO   TO  40 
IFIKAK    .EO.   2)   GO  TO  35 
PCBHE   =   0.49401   +  0.71890 
1    ♦    0.12616   »  ALOGIOIOBHO) 
GO  TO  36 

35  PCBHE  =   0.26136   ♦  0.93849 

36  OBHE  =    10. 0  »»  PDBHE 
GC   TO  45 

40  IFIKAK    .EO.   2)   GO   TO  41 
DBHE   =   0.73365   +  1.02008 

14   «    IPRET  -   50.0)   *  IPRET 
GO  TO  45 

41  DBHE  =  DBHO  ♦  1.05308  -  0 
45   I DBHE   =  DBHE   »    10.0  ♦  0.5 

DBHE  =    I OBHE 
DBHE  =  CBHE  *  0.  1 
DENE   =   DENO  »   (PRET   *  0.01) 
NDENE  =   DENE   ♦  0.5 
DENE   =  NCENE 
BASE   =  0.0054542 
NBASE   =   BASE  *   10. 0   ♦   0. c 
BASE  =  NBASE 
BASE   =   BASE   *  0.1 
BREAK   =   49.9  *  REST  /  80.0 
IFIBASE   .GT.   BREAK )   GO   TO  50 

DBHP  =  180.0  /  REST)  »  10.08682  *  BASE)  ♦  0.94636 
GO  TO  52 

50  BUST  =  66.2  *   IREST  /  80.0) 
IFIBASE   .GT.   BUST )   GO  TO  51 

08HP  =  180.0  /  REST)  *  (0.10938  *  BASE )  -  0.17858 
GC   TO  52 

51  TMPY   =   BASE   »   (80.0  /  REST) 


AL0G10 I PRET ) 


AL0G10IDBH0) 
AL0G10IPRET) 


0.22530   »  AL0G10IPRETI 


ALOGIOIOBHO)   -  0.09292   »  AL0G10IPRET) 


DBHO  - 
-  50.0) 


0.01107   *  IPRET 


.02106   *  IPRET 


DBHE   *  DBHE 


TFM   =    TMPY   »  TMPY 

DBHP   =    19.04740    *    TMPY   -  0.26673 
1  -  448.76833 
IFITMPY    .GT .   80.01   DBHP   =  DBHO  ♦ 
52   ICBHP  =  CBHP  »   ICO  ♦  0.5 
OOHP    =  ICBHP 
ORHP  =   C8HP   *  0.1 
I  F  I  DBHP  -   DBHE )  60,70,61 

60  PRET   =  PRET   *  1.02 
GC  TO  65 

61  PRET   =  PRET   *  0.98 
65  CCNTINUE 

70    DBHT   =  DBHE 

C    COMPUTE    POST-THINNING   BASAL  AREA. 

C 

IFIDBHT   .GT.    5.0)   GO   TO  75 
SCFT  =    11.58495   «   DBHT  -  11.09724 
GC   TO  76 

75  IFIDBHT    .GE.    10.01    GO    TO  77 
TEM   =   DBHT  *  OBHT 
SOFT  =   7.76226  »   DBHT   +0.85289  *   TEM  -0.07952   *   TEM  *  DBHT-3. 45624 

76  BAST   =    (REST   /   80.0)   *  SOFT 
GC  TO  80 

77  BAST  =  REST 
80  RETURN 

END 

SUBROUTINE  GOT 

C 

C   TC  COMPUTE   PRESENT   VOLUMES,   DISTRIBUTIONS  OF   AREA  AND  VOLUME , 
C    POTENTIAL    GROWTH    FROM    INVENTORY  DATA. 

C 

CCMMON  ABFAG(3,15),ACBARI5),ACSI(3,5.10),ACSP(3,5) , ALLCF I  3 , 1 0  I , AMC 
1AGI 3, 15), ANCUT I  3, 10) , ARBK 15  I .AREA  I  3, 101 ,BARSI(5,10) , BFAGE I  3 , 15) ,BF  ' 
2TF I  5, 12) , BFMRCH.CFAGEI 3, 15),CFBF(3,10),CMTH(5,12) ,COMBF( 3) ,COMCU,C 
3UTAI5, 12) ,CUTBI5,12),CYCL,DAT6(3),DLEV(3I,FINL(3),F0RET(3I,GRBD(3 
45, 15) ,GRMCI3,5, 15) .GROWBI 3) .GROWCI 3 ) , GVLBF I  3 ) , GVLCU I  3 ) ,MIN,NBK,NCM 
5P,NSBKI5),NSII3),NSUB,OPEN(5,12) .POOR  I  31 , PRET , RAGE ( 3 , 10  I , R I  NT , ROT  A 
6,SARETY(5,20),SARSP(3) , SB ARB , SB ARE  ,  SB ARG  ,  SBF I  3 ) ,SHELT(3) ,SHW0(3) 
7LAND,SLVG( 5, 121 , SMC ( 3) ,SMSP(3) ,STYP(20),SUBBF(3,10),SUBCF(3,10I,SU 
8MCF I 3),THIN(3),TMBR,TMP0,TYPNM(20),0ELAY(3),ACFNL(3,5,15I , ACRGN ( 3 , 
95,15I,TIME,PDCFR(5,12),P0CFN(5,12I ,0PCU(3) ,FNCU(3I ,CUINT(3),ACINT( 
13),FNBDI3),BFINTI3),OPBDI3) , TEM , MNK , KNO , FC TR I  2 ) , PRODI  2  I ,KAK, VDM I  2 ) 
2.ADJI3) , ALOWC I  3) .ALWBFI 3  )  , BOMA I  I  3 ) ,CUM A  I  I  3  I  ,  PA  I BD I  3 ) , P A  I  CU I  3  )  , OBHO 
3, OENO, REST, OBHT.BA ST, NWGP, HELP  15,12), BAI2) 

C 

C   VARIABLES   LISTEO   IN   DIMENSION  AFTER   TVL(I)    ARE   NEEDED  ONLY   IF  ANY 

C   INVENTORY  RECORDS   HAVE   ACRE   =  0.0. 

C 

DIMENSION  BFBLK(5),BFSPI3,5I,BFTB(5,12),CFMER(5),CFTB(5,12I,CMSP(3 
1,5>,CMTB(5,12I,0BH(2),DEN(2),FBAI2),FBDI2),F0MI2),FDN(2) , FHT I  2 ) , FM 
2C(2),FVL(2),HT(2),PTBF(3,5,15),PTCU(3,5,15),PTMC(3,5,15),SPLTI5,12 
31.TCFI 5) ,TCSPI 3, 5),UNCML I  5, 12) , AGE  I  2 ) ,STCI3),BAS(2),T0T(2),CMI2),B 
4FMI2) ,TBA( 2) ,TB0(2) ,TDMI 2) ,TCMI2) ,TVL (21  ,PAFN(3,5,15) , P ARG I  3 , 5 , 1 5 ) 
5,PSPLT(5,12),PASI(3,5,10),PBFTI5,12I,PBRSII5,10),PCMTI5,12),PCTAI5 
6,12),PCTBI5,  121  ,PGBD(  3,5,15)  ,PGMC  I3,5,15),P0PM5,12),PPBFI3,5,15), 
7PPCRI5,12),PPFNI5,12) , PPMC I  3 , 5 , 15 ) ,PPTCI3,5,15),PSI3,5,10),PSLV(5, 
812) , PUNCI 5, 12),TPBI3,5),PARTY(5,20),PABR(5I,PASP(3,5) ,PHLP(5,12) 

C 

C    'NITIALIZE   VARIABLES   FIRST   DEFINED   IN   THIS  SUBROUTINE. 

C 

SBDF  =  0.0 
SCFM  =  0.0 
SSPT  =  0.0 
STCF  =  0.0 
SUNC  =  0.0 
TMPO  =  0.0 
DC  2  1=1,3 
STC( I  I  =  0.0 
DO  2  J=l,5 
BFSPI I , J 
CMSPI  I, J 
PASPI I, J 
TCSPI 1 , J 
TPBI I, J) 
00  2  K=l 
P  A  FN  I  I, J 
P  ARG  I  I  ,  J 
PGBDI I, J 
PGMCI  I  ,  J 
PPBFI I, J 
PPMC  I  1  ,  J 
PPTCI I, J 
PTBFI I , J 
PTCUI I , J 
PTMCI I, J 
2  CONTINUE 
00  4  1=1 
BFBLKI  1  ) 
CFMERI  I  ) 
PABRI  I  ) 
TCFI I  I  = 
DO  4  J=l 
BFTBI  I  ,  J 
CFTBI I , J 
CMTBI I , J 
PBFTI  I  , J  )  =  0.0 
PCMTI I, J)  =  0.0 
PCTAI I , J  I  =  0.0 
PCTBI I, J)  =  0.0 
PHLPt I, J  I  =  0.0 
POPNI I , J )  =  0.0 
PPCRI I , J )  =  0.0 
PPFNII.J)  =  0.0 
PSLVI I  ,  J  )  =  0.0 
PSPLTI 1,J)  =  0.0 
PUNCI I, J)  =  0.0 
SPLT I  I  , J  I  =  0.0 
UNCMLI I, Jl    =  0.0 


)  - 

)  = 

)  » 

)  = 


0.0 
.12 

)  =  0 
)  =  0 
I    =  0 
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4  CCNTINUF 
DC  5  I  =  lt  3 
OC  5  J=l,5 
or  5  K>li 10 

PISIIIiJiK)   =  0.0 

5  PSI I.J.K)   =  0.0 
DC  6  1=1.5 
00  6  J=l , 10 

6  PBRSI I  1  .J  I   =  0.0 

C  CREATE  OUPLICATE  RECORD  OF  ARE  A  S  COMPUTED  BY  PREVIOUS  ROUTINE. 
C 

DC  8  I=1,NWGP 
DC  8  J=1,NBK 

8  PASPI  I .J  I    =    ACSPI  I , Jl 
DC  9   1=1, N8K 

DC  9  J=l,20 

9  PARTY  I  I , J )    =    SARETYI  I , J) 


INITIALIZE   VARIABLES  RECOMPUTED  FOR   EACH   INVENTORY  RECORD. 

10  DC  11  1=1,2 
OAS (  I  )  =  0.0 
BFMI II  =0.0 
CMI I )  =  0.0 
FPA ( II  =  0.0 
FBD  (  I  I  =  0.0 
FCMl  I  I  =  0.0 
FCNI II  =  0.0 
Ft-TI  I  I  =  0.0 
FMCI  I  I  =  0.0 
FVL I  I  I  •  0.0 
TBAI 1  I  =  0.0 
TPCI  I  I  =  0.0 
TCMI II  =0.0 
TCMI II  =  0.0 
TVL I  I  I    =  0.0 

11  TCT ( I  I   =  0.0 
EAUS  =  0.0 
BCUS  =  0.0 
BFVOL    =  0.0 
CFVOL  =  0.0 
CMUS   =  0.0 
DMUS  =  0.0 
ONUS  =  0.0 
FTBD  =  0.0 
FTCM  =  0.0 
HTUS  =  0.0 
ST0R1   =  0.0 
ST0R2  =  0.0 
TEH   =    M  I N 
TMBD  =  0.0 
TMCF  =  0.0 
VLUS  =  0.0 

C 

C  READ   INVENTORY  DATA,   ONE  RECORD   AT  A  TIME. 
C  LOGICAL  UNIT   4  HOLOS  THE    INVENTORY  TAPE. 
C 

READ  14,12  1  IBK.KOMP, ISUB,QTR1,0TR2, SECT, TOWN, RANG, SITE, STRY,NTYP, 
1WCRK.0BHI 1 ) ,  FTI 1 I.OENI 1 ) , AGE! 1 1 ,DBH(2I , HT 1 2 ) , DEN ( 2 ) , AGE ( 2 1 , ACRE , WH 
2EN 

12  FORMAT  (I2,I4,I3,3A3,2A4,F4.0,F2.0,I3,F3.0,F4.1,F3.0,F5.0,F4.0,F4. 
U,F3.0,F5.0,F4.0,F5.1.F5.0) 

C 

C  STOP  VOLUME   COMPUTATIONS   IF  ALL    INVENTORY  RECORDS  READ. 
C 

IFIIBK   .EO.   0   .OR.    I B K   .GT.   NBK I   GO  TO  150 

C 

C  CONTINUE  COMPUTATIONS    IF   ALL   RECCRDS   NOT  READ. 

C 

PARTY! IBK.NTYPI    =  PARTY! IBK,NTYP)   -  ACRE 
ST0R1  =  HT I  1  I 
ST0R2  =  HTI2I 
JS  =  (AGE!  II   ♦  9.01   »  0.1 
IFISTRY  .GT.  0.0)   JS  =  (AGEI2I 
IFIJS   .GT.    151   JS   =  15 


9.0)    *  0.1 


C  COUNT  TOTAL   NUMBER   OF    INVENTORY  RECORDS  BY   BLCCK   AND  TYPE. 

C 

SPLTI IBK.NTYPI    =    SPLTI  IBK.NTYP)    ♦  1.0 

IF1ACRE   .GT.  0.0)  GO  TO  16 

PSPLT! IBK.NTYP)   =   PSPLT! IBK.NTYP)    ♦  1.0 

16  ISI  =  (SITE  »  4.0)  *  0.1 
IF1ISI  .LT.  1)  GO  TO  10 
IFINTYP  .LF.    10)   GO  TO  18 

I F I  ACRE  .EO.  0.0)  GO  TO  17 

BARSI t IBK, ISI )    =   BAR  S 1 ( I BK. I S I )    ♦  ACRE 

GO  TO  10 

17  PBRSIt IBK, ISI )   =   PBRSK  IBK,  ISI  I   +  1.0 

GO  TO  10 

18  IFINTYP   .GT.   0   .AND.   NT YP   .LT.   6)    KAK   =  1 
IFINTYP    .GT.    5    .AND.    NTYP    .LT.    11)    KAK    =  2 
I F ( ACRE   .EG.   0.0)   GO   TO  19 

ACSI (KAK, IBK, ISI I    =    ACS! (KAK, IBK, IS! I    ♦  ACRE 
PASPIKAK, IBK)    =   PASP(KAK.IBK)    -  ACRE 
GO  TO  20 

19  PSIKAK, IBK, ISI I    =    PSIKAK, IBK, ISI )    ♦  1.0 

20  IFISITE   .GE.   PCOR(KAKI)   GO   TO  22 
IF! ACRE  .EO.  0.01  GO  TO  21 

UNCMLI IBK.NTYP)   =  UNCML! IBK.NTYP)    ♦  ACRE 
GC  TO  10 

21  PUNCI  IBK.NTYPI    =    P  UNC (IBK, NTYP)    ♦  1.0 
GO  TO  10 

22  IF(DBHIl)   .GT.  0.0)  GO  TO  26 

C 

C  TEST    FOR   NONCOMMERCIAL    THINNING    IN    VERY   YOUNG  STANDS. 
C 

I F ( WORK  .NE.  2.0)  GO  TO  10 
1FIACRE  .EO.  CO)  GO  TO  25 
HELPI  IBK.NTYP)    =   HELP! IBK.NTYP)    +  ACRE 


GC  TO  10 

25  PhLP! IBK.NTYP)    =    PHLR( IBK.NTYP)    ♦  1.0 
GC   TO  1C 

C 

C    COMPUTE    BASAL    AREAS    ANO   VOLUMES    PER  ACRE. 

C 

26  DC  29  1=1,2 

RAS(I)    =   0. 0054542   «   DOH(I)    *   DBH(I)    »  DEMI) 

IFIOBH(I)    .LT.    3.0)    GO    TO  29 

I F ( AGE ( II    .LT.   TEMI   GO   TO  29 

IFINTYP   .GT.   5)  GO  TO  28 

C2H    =    DPH  (  I  )    «    DBF  (  I  )    »   HT  (  I  I 

IFI02H  .GT.   6000.0)  GO  TO  27 

TOT(I)   =    (0.C0225  •   D2H  -   0.CC074   »   3ASII)   *   0.0371  1  1    *  DEN  1  I ) 

GO  TO  29 

27  TOTII)   =    10.00247  *  02H  ♦   0.C0130  «   BASII)   -   1.40286)    *   DEN ( I ) 

GO  TO  29 

28  TOTII)    =    0.50    «    BASII)    *   HT I  I )    *  16.96 

29  CONTINUE 

C 

C    IF  WOBK  CODED   FOR   THINNING,    VERIFY   THAT   IT  CAN   BE  CONE. 


IFIWCRK  . 
IF! WORK  . 
GO   TO  38 

30  K  =  1 

GC   TO  32 

31  K  =  2 


.0)  GO  TO  30 
.0)   GO   TO  31 


2.01  GO  TO  38 
5.0)  GC  TO  33 
BAS(K)    /   I  11.58495 


32  IFIDBHIKI  .LT 
IF(DBH(K)  .GT 
LEVL  =  8C.0  » 
TMPY   =  THINIKAKI 
GC  TO  36 

33  IF(OBHIK)   .GE.   10.0)   GO  TO  34 
TEM  =   OBHIK)    «  OBHIK) 

LEVL   =   80.0  *   BAS(K)    /   17.76226  »  OB 
1«   TEM  *   DBHIK)   -  3.45624) 
GO  TO  35 

34  LEVL   =  BASIK) 

35  TMPY    =  DLEVIKAK) 

36  IFIWORK    .EO.    6.0)   GO   TO  37 
IFILEVL   .LE.   TMPY)   WCRK  =  0.0 
GO  TO  38 

37  IFILEVL    .LE.   TMPY)   WORK   =  5.0 

38  IF  I  TOT ( U    .EC.   0.0)   GO   TO  48 

C 

C   CONVERT  TOTAL   CU.   FT.   TO  OTHER  UNITS. 
C 

IFI08HI  1  I    .LT.   5.0)   GO   TO  40 

KNO  =  2 

BA( 1 )   =   BASI 1  I 
BAI2I   =  BASI2) 
VCMI 1  I    =   DBHI  1) 
VCM ( 2  )   =  DBHI 2 ) 
CALL  VOLS 
DO   39  1=1,2 

BFM(I)    =   TCT (  I  )    »   PROC(I)   *  0.001 

39  CM(I)   =   TOT(I)   *   FCTRII)   *  C.01 

40  DC  41  1=1,2 

41  TCT( I )  =  TOT( I )   *  0.01 

C 

C   ADD  VOLUMES   TO  APPROPRIATE  TOTALS. 

C 

TMCF  =  CMI  1)    *  CMI2) 
TMBD  =   BFMI 1 )    +   BFM I  2 ) 
I F ( ACRE  .EO.  0.0)  GO  TO  45 
PTCUIKAK, 1BK.JS)    =   PTCUI KAK , IBK, JS I 
PTMCIKAK, IBK.JS)    =   PTMC I KAK , I BK , JS I 
I F ( TMBD   .LT.   BFMRCHI    GO  TO  48 
PTBFIKAK , IBK, JSI    =   PTBF I KAK , I BK , J S I 
GC   TO  48 

45    PPTCIKAK, IBK, JSI    =    PP TC I KAK , I BK , J S I 
PPMC I KAK , IBK , JSI    =   PPMC IKAK , I8K, JS I 
IFITMBC    .LT.    BFMRCHI    GO   TO  48 
PPBFIKAK, IBK, JS)    =   PPBFIKAK, IBK.JS) 


11.09724) 


0.85289   *   TEM  -  0.07952 


*  TCTI21I 
ACRE  ) 


I TMBD  *  ACRE) 


TOT  I  1  ) 
TMCF 


C  COMPUTE  GROWTH  FOR  NEXT  PERIOD  BY  WORKING  GROUP,  BLOCK,  AND  AGE  CLASS. 
C 

48   IFIWORK   .NE.   3.0)  GO  TO  51 

IFIBFM(l)    .LT.   CCMBFIKAK) I   GO   TO  10 
I F I  ACRE   .EO.   CO)  GO  TO  50 

SLVGI IBK , NTYP )   =   SLVG I IBK.NTYP)    ♦    IBFMI1I    *  ACRE) 
GC   TO  10 

50  PSLVI IBK.NTYP)   =   PSLVI IBK.NTYPI    *   BFM I  1 ) 
GO   TO  10 

51  TMOY   =   AGEIll    *  TIME 
TEH  =  MIN 

IFITMDY   .LT.   TEM I   GO   TO  66 
SBAS  =   BASI  1  )    ♦   BASI 2) 
IFISBAS   .EO.   CO)   GO   TO  66 
J  =  TIME   /  R INT 
DO  62  K=1,J 

IFIKAK    . EQ .    2)    GO   TO  56 

DC  55  1=1,2 

TMOY  =  AGE  I  I )   +  TIME 

IFITMDY   .LT.   TEMI   GO   TO  55 

FCMII)   =   0.8851  1   «   DBHII)    *    1.29735   *   ALOG 1 0 ( HT I  I  I  I    *   0.00119  *  OB 
1HII)    *    SITE    ♦    62.37174    /    SBAS   -  1.56975 
1F(D6H(I)   .GE.   10.01   GO  TO  52 

FCN(I)    =   0.00247  +  0.00124  *  OBHIII   <•  0.C0028 
10.C0000521  *  SBAS  *  SBAS  -  0.C000905  *  DBHII) 
IFIFDN(I)    .LT.   0.0)   FDN(I)    =  0.0 
FDNII)   =   DENIII    «    (1.0  -   FDN ( I > ) 
MNK    =    FDNI II    ♦  0.5 
FCNI I )    =  MNK 
GO  TO  53 

52  FCNI  I  I    =   OEN I  I  I 

53  FBA(I)   =   0.0054542  •   FDM I  1  )    »  FOM(I)    *   FDM  I  I 
FHTII)   =    15.43021   ♦   1.107  *  HTII)   -  0.08637 

1SITE  -   0.02447   »   SITE   *   SBAS   /  100.0 


DBHI I ) 
SBAS 


AGE  I  1 }   -   304.  12172  / 


-19- 


02H  =   FOMII)    »   FOMII)   »  FHTIII 
1FID2H   .  GT .   6000.0)   GO   TO  54 
FVL(I)   =    (0.00225  »  D2H  -   0.00074  * 
GC  TO  55 

54  FVL(I)   =   (0.00247  *  02H  ♦  O.C0130  « 

55  CONTINUE 
GO   TO  60 

56  DC  59  1=1,2 

TMDY  =   AGE! I  1    ♦  TIME 

I F ( TMDY    .LT.   TEH )   GO   TO  59 

FCMII)   =   0.2631   ♦   0.95287  «   D6H I  I  J  » 
16662   /  SBAS 

IF(DBHII)    .GE.    10.0)   GO  TO  57 

FCN(I)  =  0.05285  -  0.01346  «  DBH ( I ) 
10.0000066   t   SBAS  *   SBAS  -  0.0C01931 

IF(FDNll)    .IT.   0.0)   FCN(I)    =  0.0 

FONIII   =   DEN ( I )    »    (1.0  -  FDNIIll 

HNK   =   FDN(  I  )    ♦  0.5 

FCN(  I  I   =  HNK 

GC   TO  58 

57  FCNI I  I 

58  FB A  1  I  I 


0.0016    *    DBH (  I  I 


0.00226 
DBHIII  * 


'  DBH ( I  I  *  DBH (  I  ) 
SBAS 


0  EN (  I  ) 
0.0054542 


FDHI  I  I    *    FDM  II)    »    FDK  I  1  ) 
FHT(I)   =    14.57349   ♦   1.101   *  HT(I)   -   0.09654   *   AGE ( I )   -  333.37172 
1SITE  -  0.04321  »   SITE   *   SBAS   /  1CC.0 
FVLI I  1   =  0 


F  B A (  I  )    «    FHTI  I )    ♦  16.96 


59  CONTINUE 

60  IF(J   .EC.    1)   GO   TO  62 
00  61  1=1,2 

AGE (  I  )    =   AGE ( I )    t  R I  NT 
DBH (  I )   =   FDHI  I  I 
DEN (  I )   =   FDN (  I  ) 
HT(  I  I    =    FHTI  I  ) 

61  CONTINUE 

SBAS  =   FBAI 1 )    ♦   FBAI 2 ) 

62  CONTINUE 

C 

C   CONVERT   TOTAL   CU.   FT.   TO  OTHER  UNITS. 


IFIFDH(l)  .LT. 
KNO  =  2 
BA (  1  )   =   FBAI 1 ) 
BAI2I    =  FBAI2) 
VOH(l)    =   FDHI  I  ) 
VCHI2)   =  FDMI2I 
CALL  VOLS 
DC  65  1=1,2 
FB D I  I )    =   FVLI  I  I 
FMCI  I  )    =   FVLI I ) 
65  CONTINUE 


5.0)   GO   TO  66 


PRODI  I  I 
FCTRI I  ) 


3.001 
].01 


C   ADD   PERIOOIC   GROWTH    IF  NO   WORK   IS   PLANNED   DURING  NEXT  PERIOO. 


66  I F I  WORK    .GT.    1.0)   GO   TO  70 
I F I  ACRE   .Ed.  0.0)  GO  TO  67 
GRBDIKAK, IBK.JS)    =   GRBD I K AK , I BK , J S I 
GRHC I K AK,  IBK, JS )    =   GRHC I K AK , I BK , J S I 
GO   TO  10 

67  PGBOIKAK, IBK, JS I  =  PGBDIKAK, IBK.JS) 
PGHCIKAK, IBK, JS)  =  PGHCIKAK, IBK.JS) 
GO   TO  10 


IFBDI l)+FB0(2)-TMBO) 
(FMCI 1 )»FMC I 21-TMCF ) 


ACRE 
ACRE 


FBD I  1  I 
FHC I  1  I 


FBDI2I  -  THBO 
FHC 1 2 )    -  TMCF 


C   COMPUTE   FUTURE   UNTHINNED   UNDERSTORY   IF   OVERSTORY   IS   REDUCED  NOW. 
C 

70  IFIWORK    .LT.   4.0)   GO   TO  85 
I F I  WORK   .GT.   5.0)  GO  TO  85 
IFI0BHI2)    .EO.  0.0)  GO  TO  85 
IFIKAK    .EO.    21    GO    TO  74 

OHUS   =   0.88511   »   DBH I  2 )   *   1  .29735  »  A  LOG  1 0  I H T I  2 ) )    +  0.00119   •  DBH I 
12)   *   SITE   ♦   62.37174   /   BASI2)   -  1.56975 
IFIDBHI2)    .GE.    10. 0)   GO   TO  71 

ONUS   =   0.00247   +  0.00124  *   OBH 1 2 )    ♦  0.C0028   *  DBH I  2 )    *   0BHI2)    *  0. 
1O0COO521   *   BASI2)   «  BASI  2)   -   0.0000905  *   OBH 1 2 )    *  BASI2) 
IFIDNUS   .LT.   0.01    DNUS   =  0.0 
ONUS   =    DENI2I    «    11.0   -  DNUS) 
MNK  =   ONUS   +  0.5 
DNUS  =  MNK 
GO   TO  72 

71  DNUS  =  CENI2) 

72  BAUS  =   0.0054542  »  DHUS  *  ONUS  »  DNUS 

HTUS  =    15.43021   ♦    1.1C7  «  HT(2)   -  0.08637   *  AGE  1 2 )   -   304.  12172   /  S 
1ITE  -  0.02447  «   SITE  »   BASI2I    /  100.0 
D2H  =   DHUS  «   DHUS  «  HTUS 
IFID2H   .GT.   6000.0)   GO  TO  73 

VLUS   =    (0.00225   *  02H  -   0.00074   *   BAUS  *   0.03711)    *  DNUS 
GO   TO  77 

73  VLUS   =   (0.C0247   «   D2H   ♦   0.00130   »   BAUS  -   1.40286)    »  ONUS 
GC   TO  77 

74  DHUS  =   0.2631   ♦   C. 95287   «  DBH ( 2  >   ♦   0.0016  »   DBHI2I    *   SITE   ♦  16.466 
162   /  BASI2I 

IFIDBHI2)    .GE.    10.0)   GO  TO  75 

DNUS  =   0.05285  -   0.01346  «   DBH I  2  >   ♦  0.00226  *  0BHI2]    *  DBH ( 2  >   ♦  0. 
10000066   »   BASI2)    *   BASI2I   -   0.0001931    »   DBH ( 2 )    »  BASI2I 
IFIDNUS   .LT.   0.01   DNUS   =  0.0 
DNUS   =   D  EN  I  2  )   *    11.0  -  ONUS) 
MNK  =   ONUS  +  0.5 
DNUS  =  MNK 
GO  TO   7  6 

75  DNUS   =   DEN ( 2 ) 

76  BAUS  =   0.0054542  *  DHUS  *  DHUS  «  ONUS 

HTUS  =    14.57349   ♦    1.101  »  HTI2I   -   0.09654   »  AGEI2I   -   333.37172   /  S 
1ITE  -   0.04321   »   SITE   «   BASI2)    /  100.0 
VLUS  =  0.50  *  BAUS  »  HTUS  ♦  16.96 

77  IFIDHUS   .LT.    5.0)   GO   TO  85 
KNO    =  1 

Bail)    =  BAUS 
VCM(l)   =  OMUS 
CALL  VOLS 

BOUS   =  VLUS  *   PROD ( 1 )    *  0.001 
CMUS  =   VLUS   »   FCTR(l)   »  0.01 


C6TERMINE  POTENTIAL  WORK  LOAD  FOR  NEXT  PERIOO.  CREDIT  FUTURE  CUTS 
WITH  HALF  PERIODIC   GROWTH  OBTAINED   IF   NOT  CUT. 

INCLUCE   STANDS  NEAR   ROTATION   AGE   IN  POTENTIAL  REGENERATION  CUTS 
REGARCLESS  CF   WORK  INDEX. 


85  IFIWORK 
IFIWCRK 


,EU.  2.0)  GO  TO  105 
GT.   4.0)   GO   TO  95 


IFBDI2)   »   BDUS   -  BFMI2) 
0.5  *  ACRE 
+  ACRE 


C   COMPUTE   GROWTH  ANC  YIELD   OF   STANOS   TO   BE   REGENERATED   IN  NEXT  PERIOD. 

C 

T EM   =  GRCWBIKAK)    «   TIME   *  0.01 
CMY   =  SHELTIKAK) 

TMPY    =    I  FHCI  1  )    ♦   BFMI  1)1    »  C.5 
IFITMPY    .LT.    CMY )    DM  Y    =  TMPY 
[FIACRE    .EC.    0.0)   GO  TO  86 
GRBDIKAK,  IBK  ,  JS  )    =    GRBDIKAK, IBK, JS) 
1M12)    +    FB0I1)    -    8FMI1)    +   OMY   f  TEM) 
ACRGN I KAK, IBK , JS I    =    ACRGN I K AK , I BK , JS I 
GC  TC  87 

86  PGBDIKAK, IBK, JS)    =    PGBD I KAK , I BK , JS )  t 
1MI2)    ♦    FBDI1I    -    BFM(l)    *    DMY   «    TEM)  * 

PARGIKAK,  IBK, JS  )    =    PARGIKAK, IBK, JS )  * 

87  TEM.  =   GROWCIKAK)    «   TIME   «  0.C1 
OMY    =  SHWDIKAK) 

TMPY    =    I FMCI  II    ♦    CHI  1 )  I    *  0.5 
IFITMPY    .LT.    DMY  )    DMY   =  TMPY 
I F I  ACRE   .EO.  0.01   GO  TO  88 
GRMCIKAK,  IBK,  JS)    =   GRMCIKAK,  IBK,  JS  ) 
12)    +   FMCI1I   -  CMI1)   *  DMY  *   TEM)    «  0.5 
GC  TO  89 

88  PGMCIKAK,  IBKtJS)    =   PGMC ( K AK , I BK , J S )  * 
121    +   FMCI1I   -  CMI1)    +  DMY  *   TEM)   «  0.5 

89  B  F  VOL    =    IBFMI1)    »    FBDI1II    *    0.5   -  SHELTIKAK) 
CFVOL    =    ICH(l)    +    FMCID)    »    0.5  -  SHWDIKAK) 
[FIBFVOL    .LT.    COMBFIKAK) )    GO   TO  91 
ACQ  =   BF VOL   *    10.63821   +   28.99151   /   DBH I  1 ) ) 
ACD  =  CFVOL  -  ADD 
IF1A0D   -LT.   COMCU)   AOD  =  0.0 
[FIACRE    .EQ.   0.0)   GO   TO  90 
CUTAI IBK.NTYP )   =  C UTA I  I BK , NT YP )  ♦ 
PCCFRI  IBK.NTYP)    =    POC FR I  I BK  ,  N T YP I 
GO    TO  10 

90  PCTA I  I BK.NTYP  )    =    PC T A  I  I BK , NT YP 1  + 
PPCRI  IBK , NTYP  )    =    PPCR I IBK ,NTYP )  ♦ 

GO   TO  10 

91  IFICFVOL    .LT.   COMCU)   GO   TO  10 
IFIACRE   .EC.   0.01   GO   TO  92 

PCCFRI I8K, NTYP)    =   POC FR I  I BK , NT YP I   +   ICFVOL   *  ACRE) 
GO   TO  10 

92  PPCRI IBK.NTYP)   =   PPCRI IBK.NTYP]    ♦  CFVOL 
GO   TO  10 

C 

C   COMPUTE  GROWTH   AND  YIELD  OF   STANDS   TO  LOSE   OVERSTCRY   IN  NEXT  PERICO. 


[FMCI2I 
*  ACRE 


IFMCI2)    ♦   CMUS   -   CMI2)    -  CMI 


IBFVOL 
t    I  ACD 


BFVCL 
ADD 


ACRE) 
ACRE) 


BFM(l) ) 
CMI1) )  < 


BF  VOL  » 
♦    I  ACD 


BF  VOL 
AOD 


ACRE 
ACRE  I 


CFVOL   »  ACRE 


95  IFIACRE   .EO.  0.0)  GO  TO  96 

GRBDIKAK, IBK.JS)  =  GRBDIKAK, IBK.JSJ+I (FBDI1 )  - 
GRMCIKAK,  IBK,JS)  =  GRMC I KAK  ,  IBK , JS )+ (  I FMC I  1 )  - 
ACFNLIKAK, IBK.JS)    =   ACFNLIKAK, IBK.JS)    +  ACRE 

GC   TC  97 

96  PGBDIKAK,  IBK.JS)  =  PGBOIKAK, IBK, JS)  +  IFBDI1) 
PGMCIKAK,  IBK.JS)  =  PGMC  I  K  AK  ,  I  BK  ,  J  S  )  -I-  IFMCI1) 
PAFNIKAK,  IBK.JS)    =    PAFNIKAK. IBK.JS)    *  1.0 

97  BFVOL   =    IBFMI1)   +  FBD I  1 ) )   *  C.5 
CFVOL   =    I  CM  (  1  )    +   FMCID)    *  0.5 
IFIBFVOL   .LT.   COMBFIKAK) )   GO  TO  99 

ADD  =   BFVOL   *    10.63821   ♦   28.99151    /  DBHID) 
ACD  =   CFVOL  -  AOD 
I F I  ADD   .LT.   COMCU )   ADO  =  0.0 
IFIACRE   .EG.   0.0)   GO   TO  98 
CUTBI IBK.NTYP)   =   CUTB I  I BK , N T YP )  ♦ 
PCCFNI IBK.NTYP)    =    POCFN [ I BK ,NTYP ) 
GC  TO  101 

98  PCTBI IBK.NTYP  )  =  PCTB I  I BK , NTYP I  + 
PPFNI IBK.NTYP)  =  PPFNI IBK.NTYP)  * 
GO   TO  101 

99  IFICFVOL    .LT.   COMCU)    GO   TO  101 
IFIACRE   . EO.   0.0)   GO  TO  100 
PCCFN I  IBK , NTYP I    =   POC FN  I  I BK , NT YP ) 
GC  TO  101 

100  PPFNI  IBK, NTYP)    =    PPFN I  I BK , NTYP )    *  CFVOL 

101  IFIWORK    .GT.    5.01   GO  TO  105 
IFIACRE   .EO.  0.0)  GO  TO  102 

GRBD I KAK, I BK, JS )  =  GRBD I K AK  ,  I BK , J S )  +  IFB0I2) 
1MI2) )    *  0.5   *  ACRE 

GRMCIKAK,  IBK, JS)  =  GRMCIKAK, IBK, JS)  *  IFMCI2I 
12))    *  0.5   «  ACRE 

GO   TO  10 

102  PGBDIKAK, IBK, JS) 
1MI2) )   *  0.5 

PGMCIKAK, IBK.JS) 
12) )   »  0.5 
GC  TO  10 
105  HTI  1)    =  ST0R1 
HTI2)   =  ST0R2 


C   GET    VOLUME    IF    THINNED   NOW   AND    IF    THINNED    IN    TIME  YEARS. 

C 

K  =  1 

IFIWORK    .EO.    6.0)    K    =  2 
DO   110  1=1,2 
REST  =  DLEVIKAKI 
IFI I   .EO.   2)  GO  TO  106 
I F I DBH I K )    .EO.   0.0)   GO   TO  110 
I F I DBH I K )    .LT.   6.0)   REST  =  THINIKAK) 
OBHO  =   OBH I K ) 
DENO  =  DEN  I K  ) 
GO  TO  107 
106  IF(FOMIK) 


I  0.5)*ACRE 
0.5  I « ACRE 


BFMI 1)1  *  0.5 
CM  I  1  ) )    *  0.5 


CHI2I    +  CMUS  -  CMI 


PGBDIKAK,  IBK, JS)  ♦  (FBDI2I  -  BFMI2I  +  BDUS 
PGMCIKAK, IBK.JS)    +    (FHCI2I    -   CHI2)    +  CKUS 


0.0)   GO  TO  110 


-  20  - 


ALOG10IPRFT) 
TOMI I ) I 


l.*0286)    *  TEC 


IFIFOMIK)    .LI.    6.01    REST    =  THINIKAK) 

ceno  =  fchik) 

CFNO   =  FONIK) 

107  CALL  CUTS 
THAI  I  )    =  BAST 
TCMI  1 1   =  OBHT 
I F ( I    .EC .   II   SAVE  =  PRET 
I F I  I    .EC.    2)    HTIK)    =  FHT(K) 
IFIKAK    .EO.    21    GO    TO  109 
HTIK)    =   HTIK)    »    7.6*833  -  3.82286 
T EM   =   T8AIII    /    (0.005*5*2   »  TDMIII 
02H   =    TOM(  I  )    •    TCMI  I  )    «  HTIK) 
IFI02H  .GT.  6CC0.0)  GO  TO  106 
TVLII)    =    (C. 00225   *  02H  -  0.CC07* 
GC  TO  110 

108  TVLII)   =    IC.0C2*7   •   D2H  »  0.00130 
GC  TO  110 

109  TVLII)    =    0.5C    •    TBAII)    •    HTIK)    ♦  16.96 

110  CONTINUE 

c 

C  CONVERT   TOTAL   CU.   FT.   TO  CTHER  UMTS. 

c 

IFITDUI2)    .LT.   5.0)   GO  TO  120 

KKO  =  2 

BA ( 1 )  =  TBAI 1  I 
BA(2)   =  TBAI2) 
VCMI 1 )    =   TOMI 1) 
VCMI2)    =    TCH I  2 ) 
CALL  VOLS 
DC   117  1=1,2 

lF(TVLII)    .EC •   0.0)   GO   TO  117 
TBD(I)   =   TVLII)    •  PROOIII    «  C.001 
TCMIII    =    TVLII)    «    FCTRIII    «  0.01 
117  CCNTINUE 

c  — 

C  GET   STATUS   AT   END  OF   PERIOD  OF   A   PLOT   THINNED  AT   START   OF  PERICO. 


THB 
AOO 


134   THH   =    IFPCIKI   -   TRDI2I    ♦   BF  M ( K )   -  TBO(ll) 
THC    =    (FMCIKI    -    TCMI2I    ♦   CMIKI    -    TCMI11I  « 
I F I  THE    .LT.    CCBFIKAKI)    GO   TO  1*0 
ACO  =  THB  •    10.63821   ♦   28.99151   /  DBHIKI) 
ACO  =   THC  -  ACC 
1FIACD   .LT.   COMCU)   ACO  =  0.0 
IFIACRE   .FC.   CO)   GO  TO  139 
BFTHI IBK.NTYPI    =    BF TH I  I BK , N T YP )    ♦  (THB 
CMTHl IBK, NTYP >    =   CMTH ( I BK , N T Y P I    ♦    ( AOO 
OPEN!  1 BK, NTYP I    =   OPEN  I  I BK , NTYP )    ♦  ACRE 
GC   TO  10 

139    PRFTI  I6K.NTYP)    =    PR  FT (  I BK , N T YP 1 
PCMTI IBK, NTYP)    =   PCMT I  I BK , NTYP I 
PCPNl IBK ,NTYP I    =    POPM IBK.NTYPI    *  1.0 
GC   TC  10 

1*0    IFIThC    -LT.    COHCUI    GO    TO  1*5 
IFIACRE   .EC.   0.0)  GO  TO  1*1 
CfTHI  IBK, NTYP)    =    CHTH I  I BK , N T YP I    ♦    I THC 
OPEN  I  IBK.NTYPI    =   OPENI  IBK.NTYPI    ♦  ACRE 
GO  TO  10 

1*1  PCMTI IBK.NTYPI  =  PCMTI IBK.NTYPI  ♦  THC 
PCPNl  IBK.NTYPI  x  POPNI  IBK.NTYPI  +  1.0 
GC    TO  10 

C 

C    CAKE    RECORC   OF   NONCOMMERCIAL  THINNINGS. 

C 

1*5    IFIACRE   .EC.   CO)   GO   TO  1*6 

HELPI IBK.NTYPI    =    HELPI IBK.NTYPI    +  ACRE 
GO  TO  10 

1*6    PHLPI  IBK.NTYPI    =    PHL P I  I BK , NT Y P I    +  1.0 

GO  TO  10 


ACRE) 
ACRE  I 


THIS   ENDS   PROCESSING  OF    INDIVIDUAL   INVENTORY  RECORDS. 
COMPUTE   TOTAL   VOLUMES   BY   WORKING  GROUP .   BLOCK,   AND  AGE  CLASS. 


120  J    =    TIME    /    R INT 
HT(1)    =  ST0R1 

IFIK   .EC.   21    HT(  1)    =  ST0R2 
IFIKAK    .EO.    21    GO    TO  128 
CC   125   1=1, J 

IFITBAI1)    .LE.   0.0)   GO  TO  125 

HTI1)   =   HTI1I    «   7.6*833  -   3.82286  *  AL0G10ISAVE) 

FDMIll    =   1.0097*T0M( 1 1+0. 0096«SI TE- 1 . 5 766»AL0G 1 0  I TB A  I 1  I  1  +  3.3021 
FHT(l)   =    1 5. *  302 1   ♦   1.107  *   HT(1  )   -   0.08637  *  AGE(K)   -   30*. 12172 
1SITE  -  0.02**7  *   SITE   *   TBA(l)    /  100.0 
MNK   =   (TBA(l)    /   (0.005*5*2   *   TDM ( 1 )    «   TDMIllll    *  0.5 
IFITOM(l)    .LT.    10.0)   GC   TO  121 
FCNI  1 )   =  MNK 
GC  TO  122 

121  FDNI  1  )   =  0.002*7   ♦  0.C012*  *   TOM  I  1 )   *   0.CC028  *  TDM ( 1 )    *  TDM  I  1 1  ♦ 
10.C0000521   *   TBAII)   «   TBAII)   -   C0C00905   *   TOMIll    *  TBAII  I 

IFIFDNIl)    .LT.   0.0)   FDN(l)    =  0.0 
T  EM  =  MNK 

NKM  =  TEM  »   11.0  -  FON(l))   ♦  0.5 
FON(l)   =  NKM 

122  FBA(l)   =   F0NI1)   »   0.005*5*2   «   FDMIl)   *  FDMIl) 
TCMIl)    =  FDMIll 

TBAI  1  I   =   FBAI 1 ) 
HT(  1  I    =    FHT 1  1  ) 
AGE(K)   =   AGE  1 K I    ♦  RINT 
125  CCNTINUE 

02H  =  FDMIll  »  FDMIll  *  FHTI1I 
IFID2H  .GT.  60C0.0)  GO  TO  127 
FVLI1I  =  (  0.00225  «  D2H  -  CCC07* 
GC  TO  132 

127  FVL(l)   =   (0.002*7  *  02H  *  0.0C130 
GC  TO  132 

128  DC   131    1=1, J 

IF (TBAI 1 1    .LE.   0.0  1   GO  TO  131 

FCMI1I   =   1.0222*TDMI 1 )*0.0151*SI TE - 1 . 2* 1 7»A10G1 0  I T BA I  1  I  1*2. 1*5 
FHT I  II    =    1*. 573*9   +    1.101   »   HTI  1  )    -    0.0965*    *   AGE  I K I    -  333.37172 
ISITE  -  0.0*321   «   SITE   *  TBAIll    /  100.0 
IFITOMIll    .LT.    ICO)   GO   TO  129 

MNK  =   (TBAIll    /   (  0.005*5*2   «   TDM ( 1  I   »   TDMIllll    ♦  0.5 
FCNI  1  )   =  MNK 
GC  TO  130 

129  TEM  =   0.05285  -  0.013*6  »   TDM  I  1  )    *  0.00226  «  TDM  I  1  )    *   TDM  I  1 )    *  0 
1000066  »  TBAII)    »   TBAIll   -   0.C001931   *   TOMIll    «  TBAIll 

IFITEM    .LT.    0.0)    TEM   =  0.0 


FBA  I  1  ) 


.03711  I    »    FDNI  1  I 


FBAI 1)    -    l.*0286)    *  FDNI1I 


MNK  =  FCNI  II  «  I  1.0 
FCNI  II   =  MNK 

130  FBAI 1  I   =   FONI 1  I 
TCMI  1  I   =   FDM I  1  I 
TBAI 1  )   =   FBAI  1  I 
HTI  1  I   =   FHT ( 1) 
AGE  I K I   =   AGE  I K  ) 

131  CCNTINUE 
FVLI  II    =    0.50  * 

132  IFIFCMI11  .LT. 


TEM) 


0.5 


0.005*5*2   »  FDMIll 


FBAI 1  I  *  FHT ( 1  I 
.0)   GC  TO  134 


C  CONVERT   TOTAL   CU.   FT.   TO  OTHER  UNITS. 
C 

KNO  =  1 

BA ( 1 )    =    FBAI  1  I 
VCMI  1)    =    FDM  I  II 
CALL  VOLS 

FT  BO  =   FVLIll   *   PRODI  1)   »  0.001 
FTCM   =    FVLIl)    «    FCTRIII    «  0.01 
IFIACRE  .EO.  0.0)  GO  TO  133 

GRBDIKAK,  IBK, JS)    =   GR BO  I K AK , I BK , JS I    +    IFBD(K)    -    BFM(K)    ♦   FT  B  D 
101 1) )    »   0.5   *  ACRE 

GRMCIKAK, 18K, JSI    =   GRMC I KAK, IBK, JS)    +    (FMCIKI    -   CMIKI    +    FTCM  - 
111)1    *   0.5    »  ACRE 

GC  TO  13* 

133  PGBDI KAK, IBK.JS)  =PGBDIKAK,IBK,JS)-HFBD(K)-BFM(K)«FTBD-TBD(l))*0.5 
PGMCIKAK, IBK.JS I    =PGMC ( KAK , I BK , J S I  +  ( FMC I K I -CM  I K I *F TCM-TCM I  1  I  1*0.5 


TCM 


0.01  GO  TC  152 
PSPLT I  J ,K I 


PGBD (  I , J , MNK  I 
PGMCI I,J,MNKI 
PPBF I  I , J , MNK ) 
PPTCI I, J, MNK) 
PPMC I  I , J , MNK I 


TEM 
TEM 
TEM 
TEM 
TEM 


EC.   0.0)   GO   TO  15* 
PSPLTIJ.KI 


PGBD I  I  , J, MNK I 
PGMC I  I , J , MNK I 
PPBFI I ,J,MNK) 
PPTCI I,J,MNKI 
PPMC I  I  ,  J , MNK 1 


TEM 
TEM 
TEM 
TEM 
TEM 


EQ.   0.0)  GO  TC  156 
PSPLTIJ.KI 


150  DC    159  I=1,NWGP 
DC    159  J=1,NBK 
K    =  I 

I F I  I    .EC.   21    K  = 
IFI PSPLTI J,K I  .EQ 
TEM   =  PARTY(J,K) 
CC    151  MNK=1,3 
PGBDI I, J, MNK) 
PGMC I  I , J, MNK ) 
PPBFI I, J, MNK) 
PPTCI  I • J, MNK ) 
PPMC I  I , J, MNK I 

151  CCNTINUE 

152  K  =  K  +  1 
IFI PSPLTI J , K ) 
TEM  =   PARTYI J,KI 
DC    153  MNK=*,5 
PGBDI I, J, MNK)  = 
PGMC I  I , J , MNK )  = 
PPBFI I, J, MNK)  = 
PPTC I  I , J, MNK  )  = 
PPMC ( I , J, MNK )  = 

153  CCNTINUE 
15*    K   =   K    +  1 

IF(PSPLT( J,K) 
TEM  =  PARTYIJ.K) 
OC  155  MNK=6,10 
PGBDI I , J, MNK) 
PGMC  I  I , J . MNK ) 
PPBFI I , J, MNK ) 
PPTC I  I , J, MNK ) 
PPMC I  I , J , MNK ) 

155  CCNTINUE 

156  K   =   K    ♦  1 

IFIPSPLTI J.K)    .EO.   0.0)   GO   TO  15B 
TEM   =    PARTYIJ.K)    /  PSPLTIJ.KI 
DO   157  MNK  =  U,1* 

PGBDI  I , J. MNK )  =  PGBDI  I , J, MNK  I  »  TEM 
PGMCI I ,J»  MNK I  =  PGMC I  I  ,  J, MNK  1  »  TEM 
PPBFI  I, J, MNK)  =  PPBFI  I, J, MNK  I  *  TEM 
PPTC f  I  , J, MNK I  =  PPTC I  I  ,  J, MNK  I  *  TEM 
PPMC I  I , J ,MNK I    =    PPMC I  I , J , MNK I    «  TEM 

157  CCNTINUE 

158  K   =   K    ♦  1 

IFIPSPLTIJ.K)  .EQ.  0.0)  GO  TO  159 
TEM  =  PARTYIJ.K)  /  PSPLTIJ.KI 
PGBDI  I, J,  151  =  PGBDI I , J, 15) 
PGMCI I , J, 15  I  =  PGMCI I , J, 15) 
PPBF I  I , J, 151  =  PPBFI I , J , 15  I 
PPTCI I , J,  15  I  =  PPTCI I , J, 151 
PPMC I  I , J, 151    =   PPMC I  I , J, 15) 

159  CCNTINUE 
DC   165  I=1,NHGP 
DC    165  J=1,N8K 
CC    165   K=l, 15 
GRBDII.J.K)  = 
GRMC I  I , J,K  )  = 
PTBFI  I , J.K  I  = 
PTCUII.J.K)  = 
PTMCI  I, J.K)  = 

165  CCNTINUE 


PGBDI I , J , MNK I 
PGMC I  I  ,  J, MNK I 
PPBFI I.J.MNKI 
PPTCI I , J, MNK I 
PPMC I  I , J , MNK I 


TEM 
TEM 
TEM 
TEM 
TEM 


GRBDI I, J,K) 
GRMC I  I , J , K ) 
PTBFI  I  ,  J.K I 
PTCUI I, J.K) 
PTMC I  I , J.K  I 


TEM 
TEM 
TEM 
TEM 
TEM 


PGBDI I , J.K  ) 
PGMC I  I ,J,KI 
PPBF I  I , J.K) 
PPTC I  I ,J,K) 
PPMC  I  I ,J,K) 


ASSIGN   THINNINGS   TO  BD.   FT.   OR   CU.   FT.   TOTALS,    IF  COMMERCIAL. 


C  COMPUTE  TOTAL  VOLUMES  BY  BLOCK  AND  TYPE. 
C 

DC   17*  I=1,NUGP 
DO   17*  J=1,NBK 
K  =  1 

IFI  I    .EC.   21   K   =  6 
CO   170  MNK=1,3 

6 FTB I  J , K I    =   8FT8 I  J ,K )    ♦   P TBF I  I , J , MNK I 
CFTB1 J,KI   =  CFTBI J.K  I 
170  CMTBI J.KI    =  CM T8 (J.K) 
K  =   K   ♦  1 


PTCUI  I  . J  .  MNK ) 
PTMC I  I , J, MNK) 


-21- 


DC  171  MNK  = 
BFTBIJ.KI  = 
CFTBIJ.KI  = 

171  CMTBI J.K)  = 
K  =  K   +  1 
DC    173  MNK 
BF  T  B ( J i K 1 
CFTBI J,K ] 

172  CMTBI J.K) 
K  =   K   +  1 
DC    173  MNK 
BFTBIJ.KI 
CFTBIJ.KI 

173  CMTBIJ.K) 


'   BFTBI J.K  I 

■  CFTBIJ.KI 
CMTBIJ.K) 

6,  10 

■  BFTBIJ.KI 

■  CFTBIJ.KI 
CM T B I  J . K ) 


K 


1 


BFTBI J.K  I 
CFTBI J, K  ] 
CMTBI J, K) 
174  CONTINUE 


=  11,  14 
=  BFTBIJ.KI 
=  CFTB.(J.K) 

=  cmtb'ij.ki 

=  bftbij.ki 
=  cftbi j.k i 

=   CMT8I J.K) 


PTRF I  I  ■ J ,MNK I 
PTCUI I .J.MNKI 
PTMCI I .J.MNKI 


PTBF I  I  . J . MNK I 
PTCL I  I , J .MNK I 
PTMCI I .J.MNKI 


PTBF I  1 , J .MNK  I 
PTCU I  1 , J .MNK I 
PTMCI I .J.MNKI 

PTRF I  1  , J, 151 
PTCUI I . J , 15) 
PTMC I  I , J, 15) 


C    COMPUTE    TOTAL    VOLUMES   BY    WORKING    GROUP    AND    AGE  CLASS. 


DC    180  I=1,NWGP 
DC    180  J=1,NBK 
DC   180  K=l,15 
A8  F  AG  I  I  .  K  )    =    A  8  FAG  I  I  ,K  I 
180    AMCAGII.KI    =    AMCAG1 I.K) 


PTPFI I , J.K) 
PTMC I  I , J.K) 


C  CONVERT  WORK  TOTALS  TC  AREAS  AND  VOLUMES  BY  BLOCK  ANO  TYPE. 
C 

OC    185    1=1, NBK 
DC   185  J=l,12 

IFI PSPLTI  I  ,J  )  .EO.  0.01  GO  TO  185 
TEM  =  PARTYII.JI  /  PSPLTII.JI 
PBFTI  I.J)  =  PBFTI I.J)  «  TEM 
PCMTI  I , J  I  •  TEM 
PCTAI  I , J  I  *  TEM 
PCTBII.J)  «  TEM 
PHLPi I.J)  »  TEM 
POPNI I.J)  *  TEM 
PPFNII.J)  «  TEM 
PPCRII.J)  *  TEM 
PSLVII.J)  «  TEM 
PUNCH, Jl    *  TEM 


PCMTI  I  , J  ) 
PCTAI I , J ) 
PCTBI  I , J  I 
PHLPI  I  , J  I 
POPNI I , J ) 
PPFNI I, J) 
PPCRI  I , J  I 
PSLVI  I , J  I 
PUNC I  I , J  I 
185  CCNTINUE 


C   COMPUTE   TOTAL   VOLUMES  OF   BLOCKS   AND   WORKING  CIRCLE. 


DC    186   1=1, NBK 

DC    186  J=l,12 

PFTHI  I , J  I   =   BFTHI 1, J) 


CMTHII.J)  + 
CUTAII.J)  ♦ 
CUTBII.J)  ♦ 
HELPII.J)  ♦ 
OPENII.J)  ♦ 
=  POCFNII.J) 
=  PCCFRIItJ) 
SLVGII.J)  ♦ 
=  UNCML I  I , J  I 


PBFTI  I  , J  I 
PCMTI I.J) 
PCTAI 1 ,J) 
PCTBI I ,J) 
PHLPI  I  , J  I 
POPN I  I , J  I 

♦  PPFN I  I  , J  I 

♦  PPCR I  I , J  I 
PSLVI  I , J  I 
+    PUNCH, Jl 


CMTH I  I , J  ) 
CUTAI  I , J  I 
CUTBI  I , J  I 
HELPI  I , J  I 
OPENI  I , J  1 
PCCFNI I, J) 
PCCFRI  I , J  I 
SLVGI  I  ,  J  ) 
UNCML I  I , J  I 
186  CONTINUE 

DO    190    1=1, NBK 
DO   190  J=l,12 

BFBLKIII   =   BFBLKII)    ♦  BFJBII.J) 

CFMER I  I  I   =  CFMERII)   ♦  CMTBII.JI 

SSPT   =   SSPT   +   SPLTI  I  ,  J  l 

SUNC    =    SUNC    +   UNCMLI ! ,JI 

TMPO   =    TMPO   ♦    SARETYI  I , J  I 
190    TCFII1    =    TCFII)    ♦  CFTBII.JI 

DC  200   1=1, NBK 

DO   200  J-1,10 
200    TMBR   =    SARETYI I, J)    ♦  TMBR 

DO   210   1=1, NBK 

SBDF   =   SBOF  +  BFBLK I  I  I 

SCFM   =    SCFM   +   CFMERI  I  I 
2  10   STCF   =   STCF   +   TCFI  I  I 

C 

C   COMPUTE   BLOCK   VOLUMES   BY   WORKING  GROUP. 


DC  220  1=1, NBK 
DC  220  J=l,5 
K  =  J  +  5 
BFSPI 1.  I  I 
8FSPI2,  I  ) 
CMSPI 1,1) 
CMSPi  2,  I  ) 
TCSPI  1,1) 
220   TCSPI 2,1) 


BFSPI  1, I  ) 
BFSPI 2,  I  I 
CMSPI  1,1) 
CMSPI 2, I  ) 
TCSPI  1,11 
TCSP  I  2,  I  I 


BFTBI  I,JI 
BFTBI I ,K I 
CMT8 I  I , J ) 
CMTBI 1 ,K I 
CFTBI I , J) 
CFTB I  I ,K) 


C    COMPUTE    VOLUMES    BY    WORKING  GROUP. 


OC  230  I=1,NWGP 
CC  230  J=1,NBK 
SBFI  I  I   =  SBFI I )  * 
SHCII)   =  SMCU)  + 

230  STCI  I  )   =  STCI  I  )  ♦ 
DO   238    1=1, NBK 

238    PA  BR  I  I  I    =    PARTY!  I 


BFSPI I, Jl 
CMSPI I , J) 
TCSPI I , J ) 


PARTY  11,12  1 


C   SUM  ACRES   BY  WORKING  GROUP,   BLOCK,    AND   SITE  CLASS. 

C 

DC   240    1=1, NBK 

TEM   =   PSPLTII.ll)    ♦  PSPLT(I,12) 
IFITEM   .EO.   0.01   GO   TO  240 
DC   239  J=l  .  10 

PBRSIII.JI    =   PBRSIII.JI    •    (PABRIII    /  TEM) 

239  CCNTINUE 

240  CCNTINUE 

OC   241    1=1, NBK 


IX   24 1   J=  1  ,  10 
24  1   RARS1  I  I  ,  J  I    =   BARSI  I  I  ,  J  I 
DC   250   1=1, NBK 
DC   250  J= 1 , 5 


PRRSI I  I , J) 


TP[>  I  1  ,  I  I 
250   TPBI 2,  I  I 


TPB I  1,  I  I 
TPBI 2, 1  I 


PSPLTI I , J  I 
PSPLTI I ,KI 


C    CCMPUTE    AREAS    HY    WORKING    GROUP,    BLOCK,    ANO    SITE  CLASS. 

C 

IFITMBR   .EC   0.01   GO   TO  299 
DC   261    1=1, NBK 
OC   261   J=l,  1C 

IFITPBIl.II    .EO.   0.0)   GO   TO  260 

PASIIl.I.JI    =   PASPIl.II    *   PSIl.I.JI    /  TPBIl.II 

260  IFI TPB 12,11    . EO.   0.0)   GO   TO  261 
PASII2.I.JI   =   PASPI2.I)    *   PS(2,I,J)    /  TP8I2.II 

261  CCNTINUE 

OC   262  I=1,NWGP 
DC   262   J =1,5 
DC  262  K=  1 ,  10 

262  ACS  I  I  I  , J.K  I    =    AC  S I  I  I.J 


PASI  I  I  ,J,K) 


C    COMPUTE    ARFAS    BY    COMBINATIONS   OF    WORKING   GROUP,    BLOCK ,    ANO  AGE. 

C 

DC   271  I=1,NWGP 
DC   270  J=1,NBK 
Or   270  K=l, 15 


.EO.  0.0)  GO  TO  270 
=  PASPI I , J )  *  PAFNI I 
=   PASPI I , 


TPBI I , J) 
TPBI I , J ) 


I F( TPBI  I  ,  J 
PAFN I  I  , J  ,K 

PARGII.J.K)    =    PASPII.J)    *    PARGII.J.K)  / 

270  CCNTINUE 

271  CCNTINUE 

DC   272  I=1,NWGP 
CO  272  J=1,NBK 
CC  272  K-1,15 

ACFNLII.J.K)    =   ACFNLII,J,KI    ♦  PAFNII,J,KI 

272  ACRGNII.J.KI   =  ACRGN(I,J,KI    ♦  PARGII.J.K) 

C 

C   COMPUTE   PERIODIC   ANNUAL  INCREMENT. 

C 

DO   280  I=1,NWGP 
DC   280  J=1,NRK 
CO  2B0  K=l, 15 

PAIBOII)  =  GRBD(I,J,K)  t  PAIBDIII 
PA1CUIII    =    GRMCII.J.K)    ♦  PAICUIII 

280  CONTINUE 

OC   281  I=1,NWGP 
IFITIME   .EC.   0.0)   GO   TO  281 
PAIBDI  I  )   =   PAIBDI  I  )   /  TIME 
PAICUI 1 )    =   PAICUI I )    /  TIME 

281  CCNTINUE 

C 

C   PRINT   PAGE   TYPE   7  -   WORKING  GROUP   AND   BLOCK  VOLUMES. 

C 

299  WRITE  16,300) 

300  FORMAT    [ 1H1, ////, 60X, 1 1HPAGE   TYPE  7) 
WRITE  16,301) 

301  FORMAT    I  1H0.//.47X.36MV0LUMES   OF    BLOCKS    AND   WORKING  CIRCLE) 
WRITE    16,  302)    (FORETI  I  I,  1=1,31 

302  FORMAT    I1H  ,54X,3A8) 
WRITE  16,3031 

303  FORMAT  I  1  HO , / / , 1 3X , 24 H TOT AL  PINE  WORKING  GRCUP , 1 7X , 26HT0TAL  SPRUCE 
1   WORKING    GROUP,  19X.21HT0TAL    VOLUME    OF    BLOCK  I 

WRITE  16,3041 

304  FORMAT  I  1H  , 5HBL0C K , 3X , 5H TO T A L , 8 X , 6HME RCH . , 1 1 X , 1HM  ,  1 1 X  ,  5HT OT AL , 8X , 
16HMERCH., 1 IX, 1HM, 1 1 X , 5HT0TAL , 8X , 6HME RC H . , 1 1 X , 1HM ) 

WRITE  16,305) 

305  FORMAT  I  1H  , 1 X , 3HN0. , 3X , 7HC U.  FT.,7X,7HCU.  FT.,7X,7HBD.  FT.,7X,7HC 
1U.  FT..7X.7HCU.  FT.,7X,7HB0.  FT. ,7X,7HCU.  FT. ,7X,7HCU.  FT.,7X,7HBD 
2.    FT. , // ) 

00   307   1=1, NBK 

WRITE  (6, 306)  I,TCSP(1,I),CMSPI1,I).8FSPI1,I),TCSP(2,II,CMSP(2,I), 
1BFSPI2,I),TCF(I I .CFMERI I  I .BFBLK I  I ) 

306  FORMAT    I  1H0 , 1 X , I  2 , 1 X , 8  I F 1 1 . 1 , 3X ) , F 1 1 . 1  I 

307  CCNTINUE 

WRITE   I  6,308  I   S TC I  1 ) , SMC  I  1 ) , SBF I  1 ) , STC I  2 ) , SMC  1 2 ) , S BF I  2 ) , STC F , SC FM , 

1SP0F 

308  FORMAT   ( 1H0, // , IX, 4HSUMS , 8 ( F I I. 1 , 3X I , Fl I . 1 , ////// ) 
WRITE  16,309) 

309  FORMAT  I  1  HO , 1 0 X , 4 7HCUB I C   FEET   IN  HUNDREDS,   BOARD   FEET   IN  THOUSANDS) 

C 

C   PRINT   PAGE   TYPE   8  -   TYPE   AREAS   ANO  VOLUMES. 

C 

WRITE  16,319) 

319  FORMAT    I  1 H 1 , / / , 60X , 1 1 HPAGE   TYPE  8) 
WRITE  16,320) 

320  FORMAT  I  1  HO , / ,  39 X ,  52H TOT AL  AREAS  AND  VOLUMES  OF  BLOCKS  ANO  WORKING 
1  CIRCLE) 

WRITE   (6,302)    IFORETI I ) , 1=1, 3) 
WRITE  16,3211 

321  FORMAT  I1H0,5HBL0CK,7X,4HTYPE,12X,5HT0TAL,12X,5HT0TAL,12X,6HMERCH. 
1  ,  13X,  1HM, 13X.5H ACRES, 1 1 X , 6HNUMBE R I 

WRITE  16,322) 

322  FORMAT  I  1H  ,  1 X , 3HN0 . , 9X , 3HN0 . , 1 2 X , 5H AC  RE S , 1 1 X , 7HC U .  FT. , 1 IX ,7HCU. 
1FT.,9X,7HBD.    FT.,9X,8HL0W  S I TE , 7 X , 10H0F  RECORDS,//) 

DC   325    1=1, NBK 
DC   325  J=l,12 

WRITE  (6,  323)  I , J , SARETY I  I , J ) , CFTB I  I , J  I , CMTB ( I , J ) , BFTB ( I , J ) , UNC ML  I 
1  I.J) , SPLTI  I , J  I 

323  FCRMAT    I1H   ,  IX,  12,  10X,  I2,9X,5IF1 1.  1,6X) ,F6.0I 
IFIJ   .LT.    12)   GO   TO  325 

WRITE  16,3241 

324  FORMAT    I 1H0 ) 

325  CONTINUE 

WRITE    16,3261   TM PO , S TC F , SCF M , SBDF , SUNC , S SPT 

326  FCRMAT    I IHO , 6H TOT AL S , 1 8 X , 5  I F 1 1 . I , 6X ) , F 6. 0  I 
WRITE  16,309) 


-  22  - 


PRINT    PAGE    TYPE  9 


AREAS    BY    SITE    INDEX  CLASS. 


WRITE  (6,3291 
329   FCRM AT    (  1HI.////.60X, I 1HPAGE    TYPE  91 
WRITE  16.3301 

J30   FCRM  A  T    (  1HC,/,46X,40FOISTR[BUTION   OF    AREA   AY    SITE    INDEX  CLASS! 
WRITE    (6.  302  )    I  FORETI I ) , I  =  1 , 3  I 
WRITE  (6,331) 

331   FORMAT   ( 1H0. //, 10X, 5H0L0CK,  1CX , 10HSI TE    INDEX, 10X,13HACRES  CF  PINE, 
1  10X, I 5HACRES  OF   SPRUCE , 10X, 1CHDEF0RE STEQ/ 1H    , 44X , 1 3H WCRK I NG  GRCUP, 
21 IX , 13HWCRK ING  GROUP ,  1  AX , 5HACRES , // 1 
DO    333    1=1 ,NBK 
00  333  J=l,10 
MKK   =   J   *  10 

WRITE    (6,  332)    I , MNK , AC S I  I  1 , I . J ) . AC  SI  I  2 . I  , J  I  , B AR S I  I  I , J ) 
312    FCRMAT    (1H    ,  10X ,  I  2, 16X , 1 3, 14X.F 10. 1 , 14X, F 10. 1 , 12X ,F 10. 1  I 
IFIMNK    . L  T .    ICO)    GO    TC  333 
WRITE  (6,32',) 

333  CONTINUE 

WRITE    16,3341    SM SP  I  1),SMSP(2),SBARE 

334  FI-RMAT    I  1  HO , / / , 1  OX , 5H TOTA L , 29X , F 1 2 . 1 , 1 2X , F 1 2 . 1 , 1  OX , F 1 2 . 1  I 
RETURN 

END 

SUBROUTINE  GOAL 

TC  COMPUTE   GROWING   STOCK  NEEDED   TO  MEET  MANAGEMENT  OBJECTIVES. 

COMMON  ABFAGI 3, 15) , AC  BAR! 5)  ,ACSI(3,5,10I,ACSP(3,5I,ALLCF(3,10),AMC 
1AGI 3, 15) , ANCUTI 3,10I,ARBK(5),AREA(3.10I,BARSI(5,10) , BFAGE ( 3 , 15) ,BF 
2THI 5, 12) ,BFMRCH,CFAGE( 3,15I,CFBF(3,10I,CMTH(5,12) ,COMBF (31 ,COMCU,C 
3UTA(5,12I,CUTBI5,12),CYCL,DATE(3),OLEVO),FINL(3I  ,  FORET  131  ,GRBD  (  3  , 
45, 15) ,GRMC( 3, 5. 15) ,GROWB( 31 ,GROWC ( 3) .GVLBF ( 31 ,GVLCU(3I ,MIN,NBK,NCM 
5P,NSBK(5),NSI(3l,NSUB,OPEN[5,12) , POOR ( 3),PRET,RAGE(3,10),RINT,ROTA 
6,SARETY(5,20),SARSP(3I , SB AR B , SB A R E , SB ARG , SBF (3I,SHELT(3I,SHWCI3),S 
7LANU.SLVG(5,12),SMC(3),SMSP(3),STYPI20),SUBBF[3,10) ,SU3CF I  3, 10) , SU 
8MCF  I  3  I  ,  TUNI  3  I  ,  TMBR,  TMPO,  TYPNM  (20),0ELAY(3),ACFNL(3,5,15I,ACRGN(3, 
95,15),T1ME,P0CFRI5,12),P0CFNI5,12),0PCU(3I ,FNCUI3) ,CU I  NT ( 3  I , AC  I  NT ( 
13],FN8C(3),BFINT(3),PPBD(3I,TEM,MNK,KN0,FCTR(2),PRCD(2),KAK,V0MI2) 

2,  ADJ(3I ,AL0WC(3I,ALWBF(3) ,BOMAI I3),CUMAI(3),PAIBD(3I,PAICU(3I ,OBHO 

3,  CEN0,REST,C8HT,BAST,NWGP,HELP(5,121 ,BA(2) 

DIMENSION  ANBDF(151I,ANCUV1151),BDFC(150I,BDF0I150),BFS(15I,CFMC(1 
150) ,CFMO( 150) ,CMS( 15) .EQIVI  10) ,EQVCF ( 101 ,FACCF I  10) ,FAC ( 101 ,QUAL( 10 
2I,STACF(10),ST0AC(10) .VLBFI  1C) .VLCUI 1 0 )  , PCCUT ( 1 6  I 


ASSIGN    PART    OF   DEFORESTED    AREA    TO   EACH   WORKING  GROUP. 


DC    2    1=1, NOK 

TEM  =   ACSP1 1, I )    ♦   ACSPI2, I  I 
IFITEM   .EC.   0.0)   GO   TC  2 
FCNE  =   ACSPI 1,11   /  TEM 
FTWO  =  ACSPI 2, I )    /  TEM 
CC   1   J=l ,  10 

ACS1  I  1 ,  I  , J  )  =  ACSI  I  1,  I  ,  J  I  « 
AC S I  I  2 ,  I  , J  I    =   ACSI ( 2, I , J  I  < 

1  CONTINUE 

2  CONTINUE 


BARSI ( I , Jl 
BAR S I  I  I , Jl 


FQNF 
FTWO 


C  COUNT  NUMBER  OF   SITE  CLASSES   FOR   EACH   WORKING  GRCUP. 

c 

DC  21  I=1,NWGP 
DC   10  J=1,NBK 

I F I  ACS  1 1  1 , J, 10 )    .GT.   0.01   GO   TO  15 
10  CONTINUE 


DC    11  J=1,NBK 
[FIACSII I, J,9) 

11  CONTINUE 
DO   12  J=1,NBK 
I  F I  ACS  I (  I, J, 8) 

12  CONTINUE 
CC   13  J=1,NBK 
I F I  ACS  1 1  I, J,  7) 

13  CONTINUE 
DC  14  J=1,NBK 
[FIACSII I,J,6) 

14  CONTINUE 
GC   TO  20 

15  NSI ( I)    =  11.0 
GO  TO  21 

16  NSI I  I )   =  10.0 
GO  TO  21 

17  NSI I  I  I   =  9.0  - 
GD  TO  21 

18  NSI  I  I  1   =   8.0  -   POOR  I  I  I 
GC   TC  21 

19  NS I  I  I  I   =  7.0 
GC   TO  21 

20  NSI I  I  I    =  3 

21  CONTINUE 

DO  25  I=l,NWGP 
00  2  5  J=1,N8K 
DC   25  K=l  ,  10 
25   SARSPIII    =    SARSPIII    ♦  ACSI(I,J,K) 

CO   REMAINDER    OF    SUBROUTINE   ONCE    FOR    EACH    WORKING  GRCUP. 


.GT.  CO)  GO   TO  16 

.GT.  CO)  GO   TO  17 

.GT.  0.0)  GO   TO  18 

.GT.  CO)  GO   TC  19 

POORII)   *  CI 
POORI I  )   «  0.1 
POORII)   »  0.1 

0.1 

POORI I )  *  0.1 


CUALI I )   =  0.0 
STACFI  I  I   =  CO 
STDACI  II    =  CC 
VLBFl  II    =  CC 
40  VLCUI I )   =  0.0 

C 

C   COMPUTE  LOOP    INDEXES   FOR   NUMBER  OF   SITE  CLASSES   INCLUDED   IN  GOALS. 

C 

SITE   =  PCOKIKAKI 
KSI    =    PCORIKAKI    «  0.1 
KNC   =    KSI    ♦   NSI ( KAK I    -  1 
I F ( KND    .GT.    101    KND   =  10 

C 

C   ENTER   FOLLOWING   LCOP  ONCE   FOR   EACH   SITE  CLASS  OF   A   WORKING  GROUP. 

C 

CO    253   KAN=KS I ,KNC 
OUALIKAN)    =  SITE 

C 

C   READ    INITIAL   STANC  CONDITIONS,   ONE   SET   OF  CARDS  PER   WORKING  GRCUP. 

C    FIRST    CARC    IS    FOR    SITE    PCORIKAKI.    PROVIDE    MORE    THAN    NSI    CARDS    FOR  EACH 

C  WORKING  GROUP   SO  NO   SITE  CLASS   IS  UNDEFINED. 

C 

READ    (5,451  AGEO.OENCDBHO 
45   FCRMAT  (3F5.1I 

I F  ( AGE  n  .EC.  CO  .OR.   AGEC   .GT.  ROTAI   GO  TC  261 
I  F  I  AREA  (  KAK, KAN)    .EO.    CO)    GO   TC  252 

C 

C    INITIALIZE   VARIABLES  RECOMPUTED   FOR   EACH   SITE  CLASS. 


=  0.0 

=  CC 
CO 


=  CO 


CO 


AC  T  EM 
ACCHT 
BCAI  = 
BCFT  = 
BE  T  EM 
CFAI 
CFMT 
CFTEM 
H  TCUM  =  CO 
JBCFC  =  0 
JBOFO  =  0 
JPDFT  =  C 
JCFMC  =  0 
JCFMC  =  0 
JCFMT  =  0 
CC  50  1  =  1,  15 
BFSI  II    =  CO 

50  CMSI  I  )   =  CO 
DC   51    1  =  1,  150 
BCFCI  II   =  CO 
BCFOI  II    =  CO 
CFMCI  II    =  CO 

51  CFMOI  II  =  CC 
00  52  1=1, 151 
ANBDFI II   =  0.0 

52  ANCUVI II   =  0.0 
DC   53  1=1,16 

53  PCCUT  I  I  )   =  CO 
Nl   =  AGEO 

N  =  AGEO 

C 

C   OBTAIN  HTSO   AND   TOTAL   CU.  FT. 


PER   ACRE . 
DBHC   *  DBHO 


0.12162   *   AGEO  -  1.50953 

0.80522  »  AL0G10ISITEI   ♦  20.5252 


BASO  -  1.40286) 


8AS0  =   DENO  *  0.0054542 

IFIKAK   .EC.  2)   GO  TO  57 

I F I  AGEO   .GT.    55.0)   GO   TO  54 
HTSO  =   0.01441   *   AGEC   «  SITE 
GO  TC  55 

54  HTSU  =   0.59947  -   61.5019  /  AGEO 
18   *   AL0G101SITE)    /  AGEO 

HTSO  =    10.0   *4  HTSO 

55  C2H  =  DBHO  »  DBHO  »  HTSO 
IFID2H   .GT.   6000.0)   GO   TO  56 

TOTO  =  (0.00225  *  D2H  -  0.0CC74  *  BASO  +  C. 03711) 
GC  TO  61 

56  TCTO  =    (0.C0247  «   D2H  ♦   0.00130  * 
GC  TO  61 

57  I F ( AGEC   .GT.   45.01   GC   TO  58 
HTSO  =  3.86111  -  0.05979  »  AGEO  + 
GC   TO  59 

58  HTSO  =   0.33401  -   33.2866   /   AGEO  * 
1«  AL0G10I SITE)    /  AGEO 

HTSO   =    10.0   »«  HTSO 

59  TCTO   =   0.50   »   BASO  *   HTSO   *  16.96 

CONVERT   TOTAL    CU.    FT.    TO   OTHER  UNITS. 

61    I F I DBHO   .LT.    5.0)   GO   TO  74 
KNO  =  1 
BAIll    =  BASO 
VCMI1)   =  OBHO 
CALL  VOLS 
BCFOINI   =  TOTO 
CFMOINI   =  TOTO 


DENO 
DENO 


0.01215 
0.92341 


AGEO  *  SITE 

ALCG10ISITEI    ♦  6.27811 


PROD (  1  I 
FCTR (  1  ) 


COMPUTE   O.B.H.   AFTER    INITIAL  THINNING. 


DO   400  KAK=1,NWGP 
DC   35   1=1, N8K 
DO  35  J=l,10 
35   AREA(KAK,J  I    =    AREAIKAK.JI    ♦    AC S I  I K AK , I  ,  J  I 

ZERO  VARIABLES  COMMON   TO  ALL  SITES. 

SACCF   =  0.0 
SSTAC  =  0.0 
00  40  1=1,10 
EC  IV ( I  )  =  0.0 
ECVCFI  1  1   =  CO 
FACCFI  I  )   =  CO 
FACI  I  )    =  CO 


74    REST    =  THINIKAKI 
CALL  CUTS 

C 

C    ENTER   LOOP    FOR   ALL    REMAINING   COMPUTATIONS    AND  PRINTOUT. 

C 

00    184  1=1,100 

JCENT   =    IBAST   /    (C. 0054542   »  DBHT   *  OBHT  I  1    ♦  0.5 
DENT  =  JDENT 

BAST   =   0.0054542   *   DBHT   «   DBHT   »  DENT 
IFIKAK    . EQ .    21    GO    TO  94 

ADOHT    =    7.64833   -    3.82286    »  AL0G10IPRETI 

HTCUM   =    HTCUM    *  ACOHT 

HTST    =    HTSO    «  ADOHT 

02H  =   DBHT   *   OBHT  »  HTST 


-23  - 


IFID2H   .GT.   60C0.0)   GO   TO  80 

TOTT  =    (0.00225   «  02H   -  0.CCC74   *  BAST 

GO   TO  100 

80   TCTT   =    (0. 00247   1   02H   *   0.0C130  *  BAST 

GC   TO  ICO 
94   HTST   =  HTSO 

TCTT  =   0.50   »   BAST   «   HTST   ♦  16.96 

CONVERT   TOTAL   CU .   FT.    TO   OTHER  UNITS. 


C.0371  1  I  «  DENT 
1. 402861    *  DENT 


100    I F I D6HT    .IT.    5. 01   GO   TO  120 
K  NO    =  1 
B  A ( 1 )    =  BAST 
VCM(l)    =  DBHT 
CALL  VOLS 

BCFT  =  TOTT  *  PRODI  1 1 
CFMT   =   TCTT   *  FCTRIll 

C 

C    CHANGE    MODE    AND   ROUND   OFF    FOR  PRINTING. 


120  JCENO 
JHTSO 
JTOTO 
JEASO 
JCFHO 
JBDFO 
JBOFO 
JCENT 
JHTST 
JTOTT 
JCENC 
JCFMT 
CFMT  = 


0.5 


■  CENO 

■  HTSO 
'  TOTO   +  0.5 
i   BASO   ♦  0.5 

i   CFMO I N  1    »  0.5 
i   BDFOINI    *  0.1 
■■   JBCFO   »  10 
i   CENT   ♦  0.5 
|   HTST   ♦  0.5 
:   TOTT   ♦  0.5 
JDENO  -  JDENT 
C  FMT   *  0.5 
JCFMT 


JBAST 
JBASC 
JTOTC 


IFiJCFMT    .GT.    JCFHO)    JCFMO    =  JCFMT 
CFMOINI    =  JCFMO 
JBDFT   =   BOFT   «   0.1   *  C.5 
J6DFT  =   JBDFT   »  10 
BCFT   =   J  BOFT 
BDFT   =   BCFT   »  .001 

I F ( JBDFT   .GT.   JBOFO )    JBOFO   =  JBDFT 
BDFOIN)    =  JBDFO 
BOFO(N)   =   BDFOIN)   *  .001 
BAST   ♦  0.5 
JBASO  -  JBAST 
JTOTO  -  JTOTT 
JCFMC   =   JCFMO  -  JCFMT 
IFIJCFMC   >LE .   0)    JCFMC   =  0 
CFMCIN)    =  JCFMC 
JPDFC   =   JBCFO  -  JBDFT 
IFIJBDFC    .LE.   0)    J8DFC   =  0 
BDFCINI   =  J80FC 
B0FC1N)   =   BDFCINI   *  .C01 
I F I  I    ,GE.   2)   GO  TO  139 

C 

C   PRINT   PAGE   TYPE    10  -   YIELO   TABLE   FOR   EACH   WORKING  GROUP   AND  SITE. 
C 

C   WRITE   HEADINGS  FOR   YIELD  TABLE. 
C 

WRITE  16,129) 

129  FORMAT    I 1H1,//,62X,12HPAGE    TYPE  10) 
WRITE    16,130)    QU AL I K AN ) »CYCL»DLEV(KAK) 

130  FORMAT    I  1  HO , / / , 2 8X , 8 1 H Y I E LD S   PER   ACRE   OF   MANAGED,   EVEN-AGED  STANDS 

1  BASED  ON  PREDETERMINED  STANDARDS  F0R/1H  , 3 5 X , 1 OHS 1 TE  INDEX, F5. 0,1 
2H,  ,  F  5  .  0  ,  19  H- YEAR   CUTTING   C  YCL  E  ,  1 H  ,  ,  1 5H   DENSITY    LEVEL  ,F4.0) 

IFIKAK    .EO.   2)   GO   TO  132 
WRITE  16,131) 

131  FORMAT    I 1H0, 56X , 20HW0RK [NG   GROUP   -  PINE,/) 
GC   TO  134 

132  WRITE  16,133) 

133  FORMAT    I  1  HO  ,  5 5X ,  22HW0RK I NG  GROUP  -  SPRUCE,/) 

134  WRITE  16,135) 

135  FORMAT  I  1  HO ,  2 5X , 3 8HENT I  RE  STAND  BEFORE  AND  AFTER  THINNING, 28X,26HP 
16RI0DIC   CUT   AND  MORTALITY) 

WRITE  16,136) 

136  FORMAT  I  1H0.9X, 5H STAND,  10X , 5HBA S A L , 3X , 7H A VE R AGE , 2 X , 7H AV E R AGE , 3X , 5H 
1T0TAL,3X,9HMERCHANT-,3X,9HSAWTI MBE R , 9 X , 5H6 A S AL , 4 X , 5HTCT AL ,3X,9HMER 
2CHANT-,3X,9HSAWTIMBER> 

WRITE  (6,137) 

137  FORMAT  (1H  ,  1 0 X , 3H AGE , 4X , 5HTR EE S , 3 X , 4H AR E A , 4X , 6H0. 8 . H . , 3X , 6HHE  I  GHT 
1,2X,6HV0LUME,2X,11HABLE    VOLUME, 4X,6H VOLUME, 3X,5HTREES,3X,4HAREA,3X 

2  ,  6HVCLUME , 2X ,  1  1HABLE    VOLUME ,4X , 6HV0LUME ) 
WRITE  (6,1381 

138  FORMAT  (  1H  , 8X , 7H I  YE AR S I , 3 X , 3HN0 . , 2X , 7H SO .  F  T  .  ,  4  X  ,  3H  I  N.  ,  6  X  ,  3HFT  .  ,  4 
1X.7HCU.  FT.,3X,7HCU.  FT.,4X,9HM  BD.  F T . , 3X , 3HN0 . , 2 X , 7HSQ.  FT.,2X,7 
2HCU .    FT..3X.7HCU.    FT.,4X,9HM   BD.  FT.) 

139  WRITE    (6,140)   AGEO, JDENO, JBASO, DBHO, JHTSO, JTOTO, CFMO(N), BDFOIN) 

140  FORMAT  (1H0,9X,F4.0,4X,I5,2X,I4,5X,F5.1,5X,I3,4X,[5,5X,F6.0,6X,F6. 
13) 

1FIAGE0    .GE.   ROTA  )   GO   TO  185 

WRITE  I  6,  14  1)  AG EO.JOENT, JBAST, DBHT, JHTST, JTOTT, CFMT, BDFT, JDENC.JB 
1ASC,JT0TC,CFMCINI,8DFCIN) 

141  FORMAT  I1H  , 9 X , F4 . 0 , 4 X , I  5 , 2X , I  4 , 5X , F5 . 1 , 5 X , I  3 , 4X , I  5 , 5X , F6 . 0 , 6X , F6 . 
13,4X,I5,3X,I3,5X,I4,5X,F5.0,8X,F5.3) 

C 

C  COMPUTE  VALUES  FOR  EACH  PERIOD.   THIN  AS  SPECIFIED. 

C 

IK    =    CYCL    /    R INT 
DO   163  LM.IK 
AGEO   =    AGEO    *    R I  NT 
N   =  AGEO 

I F I AGEO   .GT.   ROTA)   GO   TO  185 
IFIKAK    .EQ.    2)    GO   TO  146 

DBHO  =    1.0097*DBHT  ♦   0.0096«SITE  -   1  .  5766 «  AL OG  1  0  I  B  A S T  I    ♦  3.3021 
GC   TO  147 

146  DBHO  =    1.0222*DBHT   ♦   C.0151»S1TE  -   1 . 24 1 7* ALOG 1 0  I B A  ST  I    ♦  2.1450 

147  MNK   =   DBHO  *   10.0   ♦  0.5 
DBHO  =  MNK 

DBHO  =   DBHO  *  0.1 

C 

C   REDUCE   FUTURE   DENSITY   BY   AMOUNT  OF   PREDICTED  MORTALITY. 


IFIOBHT    .GE.    10.0)   GC   TO  152 
IFIKAK    .EQ.    21    GC    TO  149 
CENO  =  0.C0247   ♦   0.00124  «   DBHT  ♦  0. 
121    *   BAST   <•   BAST   -   C.CC00905  *  OBHT 
GO   TO  15C 

149   DE NO  =   0.05285  -   0.01  346  *   DBHT   ♦  0, 
16   »   BAST   *   BAST  -   0.CC01931   «  DBHT  ' 


0C02B  « 
*  BAST 


00226 
BAST 


15C    IFIDENO  .LT. 
MNK   =  DENT  » 
DENO   =  MNK 
GC   TC  153 

152  CENO  =  CENT 

153  BASO  =  DENO 


0)    DENO   =  C.C 
.0  -   CENO )    *  0.5 


0.C054542 


C    COMPUTE    HTSO    FROM   AGE    AND    SITE  INDEX. 

C 

IFIKAK    . EO.    21    GO    TO  157 

I  F I  AG  EC    -GT.   55. C)   GO   TO  154 

HTSO  =   0.01441   »   AGEO   *   SITE  -  0. 

GC   TO  155 

154  HTSO   =    0.59947   -    61.5019    /   AGEO  ♦ 
18   »   ALOGIO(SITE)    /  AGEO 

HTSO  =    10.0  «*  HTSO 

155  HTSO   =    HTSC    ♦  HTCUM 

D2H   =   DBHO   «  DBHO  *  HTSO 
1FID2H   .GT.   6000.01   GO  TO  156 
TOTO   =    10.00225    «    02H   -    0.0CC74  * 
GC   TO  160 

156  TOTO  =    10.00247  *   D2H  +  0.00130  * 
GC  TO  160 

157  I F ( AGEO  .GT.   45.0)  GO  TD  158 
HTSO  =    3.86111  -   0.05979  »   AGEO  * 
GC   TO  159 

158  HTSO  =   0.33401  -  33.2866 
I*   ALOGIO(SITE)    /  AGEO 

HTSO   =    10.0  »*  HTSO 

159  TCTO  =   0.50   *   BASO  *  HTSO 


AL0G10I SITF  I 


AGEO   +  0.92341    *  AL0G10ISITEI 


CONVERT   TOTAL   CU.   FT.   TO  OTHER  UNITS. 

160  IFID8H0    .LT.    5.0)    GO    TO  161 

KNO   =  1 
BA I  1  )    =  BASO 
VCM(  1  I    =  DBHO 
CALL  VOLS 

BCFO(N)  =  TOTO  *  PROD(l) 
CFMOINI    =   TOTO   *  FCTRIl) 

161  IFIL    .EC.    IK)    GO    TO  165 


C   WRITE   VALUES   FOR   END  OF   PERIOD   IF   THINNING   NOT  DUE. 


CENO   ♦  0.5 
HTSO  +  0.5 
BASO   ♦  0.5 
KTCTO  =  TOTO   ♦  0.5 
JCFMO  =  CFMOIN)   +  0.5 
JCFMO 
BDFOIN)    «  0.1 
JBDFO   *  10 


KCENC 
KHTSO 
KBASO 


CFMOIN) 

JBDFO 

JBDFO 


BCFOIN)    =  JBDFO 

BDFOIN)    =   BDFOINI    »  .C01 

WRITE    (6,140)    AGEO, KDENO, KBASO, DBHO, KHTSO, KTOTO, CFMOIN), BDFOIN) 
DBHT  =  CBHO 
BAST  =  BASO 
DENT   =  CENO 
163  CONTINUE 


C    INCREASE  D. 


BY    THINNING   AND   COMPUTE    PO S T- TH I NN I NG  VALUES. 


165   REST   =  OLEVIKAK) 
CALL  CUTS 

184  CONTINUE 

185  IROT   =  ROTA 
MNK   =  R1NT 

NVOL   =    I  (  I  ROT  -   Nll/MNK)    «  1 
K   =   NVOL  -  1 

C 

C    INTERPOLATE   BETWEEN   VALUES  FROM   YIELD   TABLE . 

C 

00    186  L=1,K 
DC    186  J=1,MNK 

NN=J    +N1    ♦    (L-    1)    *  MNK 
TEH  =  J  -  1 

N=N1    +    (L-    1)    *  MNK 

ANCUV ( NN l=CFMO(N)-CFMC(N)+ITEM/RINT)»(CF MO (N*MNK) -CFMOIN) ♦CFMC(Nl) 
ANBDF(NN)=BDF0(N)-8DFC(N)+(TEM/RINT)*IR0FC(N+MNK)-BDF01N)+8DFC(N) ) 

186  CONTINUE 

C 

C   PRINT   PAGE   TYPE    11  -   ANNUAL   VOLUMES   PER  ACRE. 
C 

C   WRITE  TABLE  HEADINGS. 
C 

WRITE  16,189) 

189  FORMAT    I  1H1, // , 6 IX , 12HPAGE   TYPE  11) 

WRITE    (6,1901    OUAL I  KAN) ,CYCL , THIN  I KAK I ,DLEV (KAK I 

190  FORMAT  I  1  HO , 4  1  X , 5 3HGR0 W I NG  STOCK  OF  MANAGED,  REGULATED,  EVEN-AGED 
1STAN0S/1H  ,47X,10HSITE  INDEX, F5.0,1H,,F5.0, 19 H- YEAR  CUTTING  CYCLE/ 
21H   , 53X, 14HDENSITY  LEVEL-, F5.0, IX, 3HAND,F5.0) 

IFIKAK   .EQ.   21   GO  TO  191 
WRITE  (6,131) 
GO  TO  192 

191  WRITE  16,133) 

192  WRITE  16,193) 

193  FORMAT    I  1  HO , 4 3X , 4 4HV0LUME S   PRESENT  PER   ACRE   AT   END  OF   EACH  YEAR,/) 
WRITE  16,194) 

194  FORMAT  I 1H0 , 54 X , 2 3HM E RCHAN T ABLE  CUBIC  FE E T / 1H0 , 64X , 4HYE AR/ 1 H  ,14X, 
16HDECADE.9X, 1H0.9X, 1H1.9X, 1H2 , 9X , 1 H3 , 9X , 1H4 , 9X , 1H5 , 9 X , 1H6 , 9 X , 1H7 , 9 
2X, 1H8.9X, 1H9,//) 


-  24  - 


C   WRITE   CUBIC    FEET    PER   ACRE    FOR    EACH  YEAR. 

c 

WRITE    (6.1951    K. (ANCUV(NN) ,NN=1 , 10) 
195  FORMA T    (1H   , I20.F13. 1 ,9F10. 1  I 
MNK    =    RCT  A   •   0.1   -  1.0 
DC    196  J=l,HNK 


NN 


10 


1 


WRITE  (6,195)J,ANCUV(NN),  ANCL  V  I  NN»1),ANCUV(NN»2>,  ANCUV  INNtll  .ANCUV 
1 (NN*4  ), ANCUV ( NN»5 ) .  ANCUV (NN»6  I  ,  ANC  U  V  ( NN+  7 )  ,ANCUV(NN«8),  ANCUV  (NN*9  I 

196  CCNT1NUE 

J   =   ROTA    »  0.1 

ANCUVI IRCT»1 I    =  CFMOIIROTI 

WRITE   (6.1951  J »  ANC  UV  I IROT+X ) 

C 

C  WRITE   BOARC   FEET   PER   ACRE   FOR   EACH  YEAR. 
C 

WRITE  16.197) 

197  FCRHAT    (  1  HO ■ / / / .  5 5 X . 2 3H THOU  SANDS   OF    BCARD  FEET,//) 
WRITE   (6.198)   K, (ANBDF(NN) ,NN=1. 10) 

198  FCRMAT    (1H    , I  20 , F 1 3 . 3 . 9F 1 0 . 3 1 
OC    199  J=1,HNK 

NN  =    10    •    J    ♦  1 

WRITE  ( 6, 198 ) J, ANBDF I NN I , ANBDF ( NN  + 1 ) , A NBOF ( NN» 2 ) . ANBOF ( NN  +  3 ) , ANBDF 
1 (NN-Ki  I , ANBCF  (  NN*5) , ANBDF (NN«6) , ANBDF I NN+  7 )  , ANBOF (NN*8 I  . ANBOF ( NN-f9 ) 

199  CCNT1NUE 

J   =   ROTA   *  0.1 

ANBOF (  I RC  T ♦ 1  )   =   BDFO (  I  ROT  ) 

WRITE    (6,1981    J.ANBDFI  IROTtl  1 

C 

C   COMPUTE    M.A.I.    FOR    EACH   WCRK I NG   GROUP    AND    SITE  CLASS. 


TEM 


CO 


DELAY(KAK) 


REM   =  CO 

MNK    =    RAGE(KAK,K  AN ) 
DC  200   1=1, HNK 
TEM    =    TEM    *   BDFCI  I  I 
2C0   REM    =    REM    ♦   CFMCI  I  ) 
REM   =    REM    •  0.01 
HNK   =   HNK    ♦  1 

BCAI  =  ANBDFIHNK)  »  I  SHEL T  I  K AK I »GR CWR I K AK ) *0 . 0 1 «F I NL < K AK  I  > 
BCAI    =    BOA  I    /  RAGEIKAK.KAN) 

CFAI    =    ANCUV1MNKI    »    0.01    »    (SHWD(KAK)    «  GROWC(KAK) 
1AKI)    +  REM 
CFAI    =   CFAI    /  RAGEIKAK.KAN) 

BCMAKKAKI  =  BCHAI(KAK)  +  BOAI  «  ARE  A  {  K  A  K  ,  K  AN  ) 
CUMAI(KAK)    =    CUMAI(KAK)    +   CFAI    *    AR E A  1 K AK , K AN ) 


01    «  FINLIK 


COMPUTE    ACRES    IN    EACH   AGE    CLASS    WITH    IDEAL  CONDITIONS. 
ANCUT I KAK ,KAN I    =    AR E A ( KAK , K AN )    /  RAGEIKAK.KAN) 


C   CHANGE    VALUE   OF   CLASS    IF   AGE   CLASSES    ARE    NOT    10  YEARS. 
CLASS   =>  10.0 

TEM   =    ANCUT(KAK.KAN)    «  CLASS 
IFIOELAY(KAK)    .EC    O.CI    GO    TO  201 
IF(SHWDIKAK)    .GT.   0.0)   GO  TO  20A 
PCCUTI1)    =    ANCUT (KAK. KAN)    »  OELAYIKAK) 
HNK    =    (RAGEIKAK.KAN)    -   OELAYIKAK]    ♦    9.0)    *  0.1 
IK    =   HNK    ♦  1 
DO  202    1=2, HNK 
202  PCCUT(  I  I   =  TEH 
TEH   =   HNK   -  1 

TEM    =    RAGEIKAK.KAN)    -   OELAYIKAK)    -    (CLASS   »  TEH) 
PDCUTIIK)    =    ANCUTIKAK.KAN)    *  TEH 
GC  TO  206 

204  HNK   =    I (RAGEIKAK.KAN)    ♦    9.0)    •   0.11    ♦  1.0 
00   205    1=2, HNK 

205  PCCUT(l)   =  TEH 


COMPUTE   GROWING  STOCK    IN   EACH  AGE  CLASS  WITH   IDEAL  CONDITIONS. 


206   MAX    =    RAGEIKAK.KAN)    -    OELAYIKAK)  ♦ 
DO  210   1=1, HAX 

1  F ( ANBDF ( I )    .LT.   BFMRCH)   GO   TO  210 
HIC  =  I 
GC  TO  211 

210  CONTINUE 

211  HES  =  HIC  -  1 
HUO  =  HIN  +  1 
DC   212  J=MUD,MES 

212  SUBCFIKAK.KAN)  =  SUBC F ( KAK , KAN  I 
SUBCF I KAK ,KAN I  =  SUBCFIKAK.KAN) 
OC    213  K=MID.MAX 

213  CF8FIKAK ,KAN I    =   CFBFIKAK, KAN )  ♦ 
CFBF I KAK ,KAN I    =   CFBFIKAK, KAN)  » 
00  215  1=1,15 
DC  214  J=2,ll 
K  =   J   ♦   10  »   I   -  10 
IFIK   .GT.   HAX)   GO   TO  217 
IFIK   .LT.   HUD )   GO  TO  214 
CHSI I )   =  CMS( I  1    ♦  ANCUV(K) 
IFIK  .LT.  MIC)  GO  TO  214 

BFSI I )   =   BFS( I  I    ♦   ANBOF ( K 1 

214  CONTINUE 

215  CONTINUE 

ADD  SHEL  T  ERWCOD  OR  SEED  TREES,  IF  ANY,  TO  OPTIMUM  GROWING  STOCK. 
PROVICE   FOR   VOLUME   GROWTH   DURING  REGENERATION  PERIOD. 


ANCUV(J)  »  0.01 
ANCUT(KAK,KAN) 


ANCUVIK)  *  0.01 
ANCUT I KAK , KAN  I 


0.01 


217   IFISHWOIKAK)   .EO.   0.01  GO  TO  226 
K   =    I F INL I KAK  )    ♦    9.0 )    »  0.1 

CHANGE  VALUE  OF  CLASS   IF   AGE  CLASSES   ARE   NOT   10  YEARS. 

CLASS   =  10.0 
REM  =  CLASS 

IFIFINL(KAK)    .LT.    CLASS)    REM    =  FINL(KAK) 
IFIDELAYIKAK)    .GT.   0.0)   GO   TO  220 


OC   219  NX=1, 
TEM  =  NX 
IFIREM  .GT. 
OMY    =  0.0 
HNK   =   (TEH  -  1.01 
KNH   =   CLASS    •  TEM 
OC   218   KU=MNK , KNM 
TMPY   =  KU 

218  OMY    =    OMY    +  TMPY 
BFSINXI    =  RFSINX) 

10.01    «  DHY 

CMSINX)    =  CMS(NX) 
10.01    *  DHY 

REH   =    FINL1KAK)  - 

IFIREM  .L£. 

219  CONTINUE 
GC  TO  226 

220  J    =    (OELAYIKAK)    *  9. 
L   =    RAGE  I K AK,K AN  I  « 
00    225    1=1, K 
TEM  =  I 

IFIREM    .GT.    CO    .  ANO 
DHY  =  0.0 

HNK   =    I  TEH  -    1.0)    »  CLASS 
KNM  =  CLASS   «  TEM 
OC    221   KU   =    HNK , KNM 
THPY   =  KU 

221  DMY   =  DM Y   ♦  TMPY 

IF!  I   .GT.  J)   GO  TO  223 


AND.    REM    .LT.    CLASS)  CLASS 


CLASS 


SHFLT I KAK  I 


SHWDI KAK ) 


CLASS  *  TEM 
GO   TO  226 


SHELTIKAKI    »   GRCWPIKAKI  « 


SHWDIKAK)    »   GRCWCIKAKI  » 


REM   .LT.   CLASS)  CLASS 


NX 


I 


GC  TO  224 

223  NX  =  I-J 

224  BFSINX)   =  BFSINX) 
10.01    »  CHY 

CMSINX)    =  CMSINX) 
10.01    »  CHY 
REH   =    FINLIKAK)  - 


SHELT I KAK I 


SHELTIKAKI    »  GROWBIKAK) 


SHWDIKAK)    *   CLASS    «    SHWDIKAK)    «  GRCWCIKAKI 


CLASS    *  TEM 


.0)   GO   TC  226 


ANCUT (KAK , K  AN ) 
ANCUTIKAK.KAN) 


IFIREM  .LE. 

225  CONTINUE 

226  DO   227   L=l, 15 
BFS(L)   =  BFS(L) 
CMS(L)    =  CMS(L) 

227  CONTINUE 
OC  228  1=1,15 

ALLCF(KAKtKAN)    =    AL LC F ( K AK , K AN ) 

228  SUBBF ( KAK, KAN  I    =    SUB BF I KAK , KAN ) 
GVLBFIKAK)    =    GVLBF (KAK )    ♦    SUBBF I K A K , K AN ) 
GVLCUIKAK)    =    GVLCUIKAK1    *  SUBCFIKAK.KAN) 


CMSI I ) 
BFSI  I  ) 


C    COHPUTE    POTENTIAL    ANNUAL    CUTS    WITH   BALANCED   DISTRIBUTION   OF  AGE 

C   CLASSES   ANC  OPTIMUM  GROWING   STOCK   FOR  OBJECTIVES. 

C    INTERMEDIATE.   REGENERATION.   ANO  FINAL  CUTS  KEPT   SEPARATE  HERE. 

C 

HNK   =    RAGEIKAK.KAN)    -    DELAYIKAK)    »  1.0 

THPY    =    ANBCFIMNKI    -  SHELTIKAKI 

IFITMPY    .LT.    COMBF I KAK ) )    GO    TO  230 

OP  BD I K  AK )    =   OPBDIKAK)    ♦    TMPY   *  ANCUTIKAK.KAN) 

GC  TO  231 

230  TEM   =    ANCUV I HNK )    »   0.01   -  SHWDIKAK) 
I F I TEM   .LT.   COMCUI   GO   TO  231 

OPCUIKAKI    =   OPCU(KAK)    ♦   TEM   «  ANCUTIKAK.KAN) 

231  IFISHWOIKAK)    .EC   CO)   GO   TO  233 

TEM    =    SHELTIKAKI    »    11.0    ♦    FINLIKAK)    »    GROWBIKAK)    *  0.01) 

IFITEM  .LT.  CCMBF(KAKI)  GO  TO  232 

FNBD(KAK)    =    FNBDIKAK)    ♦    TEM   *  ANCUTIKAK.KAN) 

GO  TO  233 

232  TEM    =    SHWCIKAKI    *    11.0   +    FINLIKAK)    «   GROWC I KAK )    »  0.01) 
IFITEM   .LT.   COMCU)   GO   TO  233 

FNCUIKAK)    =   FNCUIKAK)    ♦   TEM   *  ANCUTIKAK.KAN) 

233  HNK   =   RAGEIKAK.KAN)   -  CYCL 
NR  =  CYCL 

DC  235  I=N1.MNK,NR 
ACTEM    =    ACTEH    +  1.0 

1FIBDFCII)    .LT.   COHBFIKAK))   GO   TO  234 
BFTEH   =  BF  TEH   ♦   BDFC I  I  I 
GC  TO  235 

234  TEM   =  CFHCI I )    »  0.01 
IFITEM   .LT.   COMCU )    GO   TO  235 
CFTEM   =  CF TEH   ♦  TEH 

235  CONTINUE 

AC  I  NT ( K  AK )  =  ACINT(KAK)  +  ACTEH 
BFINT(KAK)  =  BFINT(KAK)  ♦  BFTEH 
CUINTIKAKI    =    CUINTIKAK)    ♦  CFTEM 


ANCUT I KAK , KAN  1 
ANCUT ( KAK , KAN ) 
ANCUT { KAK , KAN ) 


C   PRINT  PAGE   TYPE    12  -  GROWING   STOCK  GOALS  BY  WORKING  GROUP   ANC  SITE. 
C 

WRITE  16,236) 

236  FORMAT    I  1 H  1 , / / , 58X ,  1 2HPAGE    TYPE  12,/) 

WRITE    (6,237)    QUAL ( KAN) ,RAGE I KAK ,KAN) , AREA ( KAK, KAN) 

237  FCRHAT  (  1  HO , 4 1 X , 44HD I S TR I  BUT  I  ON  OF  AREA  AND  GROWING  STOCK  G0ALS/1H 
10,16X,21HF0R  SITE  INDEX  CLASS-, F5.0,11H,  ROTATION-. F5.0.5H.  AN0.F1 
20.1.35H   ACRES  OF   THIS   SITE  CLASS   AND  GROUP ) 

IFIKAK    .EO.   21   GO   TO  238 
WRITE  (6,131) 
GO  TO  239 

238  WRITE   (6,  133) 

239  WRITE  (6,2401 

240  F0RH4T  ( 1H0 , 44X , 8HACR E S  I N , 1 3X , 1 1HHUNDRE 0 S  CF/1H  ,23X,9HAGE  CLASS, 
1  14X, 5HCLASS,  UX.7HCU.    FT..17X.9HM    BD.  FT.,/) 

IFISHWOIKAK)    .GT.    CO)    GO    TC  242 
IFIDELAYIKAK)    .EC    0.0)    GO    TO  242 
WRITE    16,241)  PDCUT(l) 

241  FCRMAT    I  1H0, 27X,  1H0, 14X, F 10.  1  I 

242  KNM   =    IRAGEI K AK.KAN  I    *    0.11    ♦  2.0 
DC  244   1=2, KNH 

J  =   I  -  1 

HNK   =    1   +    10   *    I   —  20 
IK   =    MNK    ♦  9 

WRITE    (  6,  243  )    MNK,  IK.PDCUTI  I  I  .CMS  I  J )  ,BFS( Jl 


-  25  - 


243  FORMAT   ( 1HO, 24X 1 1 3, 1H-, 13, 1 IX ,F1 0. 1 , 10X, F 1 5 . 1 , 10X . F15. 1 ) 

244  CCNTINUE 

WRITE    (6,2451    AREA(KAK.KAN)  ,  A  LLC  F  (  K  AK  ,  K  AN  I  , SUBBF ( K AK , K AN  I 

245  FORMAT   ( 1H0, // , 26X , 6HT0TALS , 1 IX , Fl 0. 1 , 10X ,F1 5. 1 , 10X , Fl 5 . 1 ) 
1 F ( SHWD I K  AK )   .GT.  0.0)  GO  TO  247 

IFIDELAY(KAK)   .EO.   0.0)  GO  TO  247 
WRITE    (6,246)   DELAY ( KAK ) 

246  FORMAT    I  1  HO ,  /  /  ,  1 7  X  ,  80H  AGE   CLASS   ZERO  REPRESENTS   CLEARCUT   ACRES  NOT 

1  YET   REFORESTED   BECAUSE  OF   OELAY  OF   ,F4.0,6H   YEARS/1H  .46HEXPECTEC 

2  AFTER   SCHEDULEO  REGENERATION  CUTTING. ) 

247  DO   248  1=1,15 

BFAGEIKAK,I)   =   BFAGE  (  KAK  ,  I  )  ,*  BFSIII 

248  CFAGEIKAK.I)    =   CFAGE ( KAK, I )    ♦  CMS(I) 

COMPUTE  TOTAL  YIELOS  PER  ACRE. 


NR   =  RAGEIKAK.KANI 

MNK    =    RAGEIKAK.KANI    -  CYCL 

DO   251    1=1, MNK 

IFIBDFC(I)   .LT.  COMBF(KAKI)   GO  TO  250 
VLBF(KAN)   =  VLBF(KAN)   +   BDFC I  I  I 
250   TEM  =   CFMCI I )    »  0.01 


COMCU)  GO  TO  251 
TEM 


IFITEM 

VLCUIKANI    =  VLCU(KAN) 

251  CONTINUE 
VLBF(KAN)  = 
VLCUIKANI  = 

252  SITE  =  SITE 

253  CONTINUE 


VLBF1KANI 
VLCUIKAN I 


BOFO(NR) 
CFMOINR ) 


REMOVE  EXCESS   INITIAL  CONDITION  CARDS. 

260  READ   (5,45)  AGEO,DENO,OBHO 

IFIAGEO  . EO.  0.0  .OR.  AGEO  .GT.  ROTA)  GO  TO  261 
GC  TO  260 

261  00  262  I=KSI,KND 

262  SUMCF(KAK)    =    SUMCF(KAK)    ♦  ALLCFIKAK.I) 


C    COMPUTE    STANDARD   ACRES    FOR    SITE  CLASSES. 


TEM  =  NSKKAKI 
MNK  =  TEM   *  0.5  +  0.5 
MNK  =  MNK  *  KSI  -  1 
00   271  I=KSI,KND 

IF(VLBFIMNK)   .EO.   0.0)  GO  TO  270 
FACIIl    =   VLBF(I)    /  VLBF(MNK) 
STDACIII    =    AREAIKAK.I)    *  FACII) 
SSTAC  =  SSTAC  +  STDACII) 
IFIFACII)    .EQ.   0.0)   GO  TO  270 
EQIVI I )   =    1.0   /   FAC( I ) 

270  IF(VLCUIMNK)    .EO.   0.01   GO  TO  271 
FACCF(I)    =  VLCUIII    /  VLCUIMNK) 
STACF(I)    =   AREAIKAK.I)    *  FACCFII) 
SACCF  =  SACCF  +  STACFII) 
IFIFACCF(I)    .EO.   0.0)   GO  TO  271 
EOVCFI  11    =   1.0/   FACCFI  I  ) 

271  CCNTINUE 

C 

C   PRINT   PAGE   TYPE   13  -   GROWING   STOCK  GOALS   BY  WORKING  GROUP  ANO  SITE. 
C 

WRITE  (6,299) 

299  FORMAT    ( 1H 1 , /// , 6 IX , 1 2HPAGE   TYPE  13) 
WRITE  16,300) 

300  FORMAT   I 1H0 , // , 4 7X , 38HGROH I NG  STOCK  GOALS  FOR  WORKING  CIRCLE) 
IFIKAK   .EO.   2)   GO  TO  301 

WRITE  (6,131) 
GO  TO  302 

301  WRITE   (6, 133) 

302  WRITE   (6,303)    ( FORETI I ) , 1=1 ,31 

303  FCRMAT    ( IH   , 54X , 3A 8 , / / / / ) 
WRITE  (6,304) 

304  FORMAT    (  1H0 , 45X , 8HR0T AT  I  ON , I  1 X  ,  1 OHCU.    FT.   TO , 1 3 X , 1 OHCU.   FT.  T0.10X 
1.15HM  BD.  FT.  ABOVE) 

WRITE  (6,305) 

305  FORMAT    I 1H   ,10X,10HSITE  CLASS,  10X,5HACRES,12X,3HAGE,13X,13HB0.  FT. 
1   LIMIT,  10X.12HR0TATI0N  AGE , 1  OX , 1 3HBD.   FT.  LIMIT,///) 

DO   307  I=KSI,KND 

WRITE  (6,  306)  QUAL I  I  ) .AREA (KAK, I  ) , RAGE (KAK, I  ) ,SUBCF(KAK,  I )  , ALLC F ( K 
1AK, I ) .SUBBFIKAK, I  ) 

306  FORMAT   ( 1H0 , 1 IX , F5 . 0 , 1 2X , F 9 . 1 , 1 OX , F4. 0 , 1 2X, F 1 2 . 0 , 1 OX , F 12 . 0 , 8X , F 14 . 

10) 

307  CCNTINUE 

WRITE    (6,308)    SARSP ( KAK ) , GVLCU I KAK  I  , SUMCF I K AK I ,GVLBF I KAK ) 

308  FORMAT    I  1H0,  1 2 X , 6HT0T AL S , 9X , F 1 0 . 1,25X,F13.0,9X,F13.0,7X,FI5.0) 
WRITE  (6,309) 

309  t-uRMAT    I  1H0,//,13X,101HCUBIC   FEET   IN  HUNOREDS.   TOTAL  AREA  INCLUDES 
I    ANY   LOW   SITE   ACRES    INCORRECTLY  CLASSED  AS  OPERABLE   TYPES. ) 

C 

C   PRINT   PAGE   TYPE   14  -   STANDARD   ACRES   ANO   EQUIVALENT  AREAS. 

C 

WRITE  (6,310) 

310  FORMAT   (  1H1,//,60X,12HPAGE   TYPE  14) 
WRITE  16,311) 

311  FORMAT   (  1HO,/,47X,37HCONVERSION  OF   AREAS   TO   STANOARD  ACRES ) 
IFIKAK   .  EO.   2)   GO  TO  312 

WRITE  (6,131) 
GO  TO  313 

312  WRITE  (6,133) 

313  WRITE   (  6,  3031    I  FOR ET ( I ) , I  =  1 , 3 ) 
WRITE  (6,3141 

314  FORMAT    I  1  HO , 9X , 4HS I TE , 1 3X , 1 IHTO TAL    Y I  ELD , 1 3 X , 5H ACRES , 34X , 7H AR E A  IN 
1,  13X,  13HEQUIVALENT  OF  I 

WRITE  16,315) 

315  FORMAT   I 1H  ,9X,5HIN0EX,13X,8HPER  ACRE , 14X ,7HI N  S I T E , 12X , 9HR EOUCT 1 0 
1N,12X,8HSTANDARD,12X, 13HSTAN0AR0    ACRE ) 

WRITE  (6,316) 

316  FORMAT    I  1H   , 9X , 5HCL A S S , 1 3X . 9HM  BD.   F T . . 1 4 X , 5HCL ASS ■ 1 4 X , 6H F AC  TOR . 1 5 
1X.5HACRES,  14X,  13HIN  SHE  ACRES,//) 

DC   318  I=KSI,KND 

WRITE    16,317)   OUAL ( I ) ,VLBFI I  I .AREA  I KAK, I  I  ,FACI I ) ,STDAC( I  I , EQIVI I ) 


317  FORMAT  I  1H0,8X,F5.0.12X,F9.1,12X,F10.1,11X,F9.5,11X,F10.1,13X,F9.5) 

318  CCNTINUE 

WRITE    (6,319)    SARSPIKAK), SSTAC 

319  FORMAT    ( 1H0, /, 10X, 6HT0TALS, 29X.F12. 1 ,29X,F12. 1 ,//// I 
WRITE  (6,3141 

WRITE  (6,315) 
WRITE  16,330) 

330  FCRMAT    [1H    , 9X , 5HCL A S S , 14X , 7HCU.    F T . , 1 5 X , 5HCL AS S , 1 4X , 6HF ACTOR , 1 5 X , 
15HACRES, 14X, 13HIN    SITE  ACRES,//) 

DC   331  I=KSI,KND 

WRITE(6,317)QUALII),VLCU(I),AREA(KAK,I) ,FACCF I  I  I ,STACF( I ) ,EQVCF(  I  I 

331  CCNTINUE 

WRITE    16,332)    SARSPIKAK) , SACCF 
33?   FCRMAT    I 1H0,/, 10X,6HT0TALS,29X,F12. 1.29X.F12. 1  I 

400  CCNTINUE 
RETURN 
ENO 

SUBROUTINE  GUIDE 

C 

C  TO  COMPUTE  DIFFERENCES  BETWEEN  PRESENT  VOLUMES  ANO  STOCKING  GOALS  AND 
C    TO   PREPARE    A   GUIDE    FOR    FUTURE  MANAGEMENT. 

C 

COMMON  ABFAG(3,15),ACBARI5),ACSII3,5,10),ACSPI3,51,ALLCFI3,10),AMC 
1AGI 3, 15) , ANCUTI 3, 10) , ARBK ( 5 ) , AREA (3 , 1 0 ) , BARSI ( 5 , 10 ) , BFAGE ( 3 , 15 ) , BF 
2THI5,12),BFMRCH,CFAGEI3,15),CFBF(3,10),CMTH(5,12),CCMBF(3) ,CCMCU,C 
3UTAI 5, 12) ,CUTB(5,12) ,CYCL .DATE  I  3 ) , DLEV I  3  I ,F I NL I  3  I  *  FORET ( 3 ) , GRBD ( 3 , 
4  5, 15  I ,GRMC(3,5, 15) ,GROWBI 3I,GR0WC(3),GVLBF(3I ,GVLCU(3I ,MIN,NBK,NCM 
5P.NSBKI 5 ) ,NSI I  3) ,NSU6,0PENI5, 12) ,PCORI 3)  , PRET ,RAGE (3,10),RINT,RCTA 
6,SARETY( 5, 20 ) , SARSP ( 3 ) , SB ARB, SB A RE, SB ARG , SBF (3 ) ,SHELT( 3 ) ,SHWO (3) ,S 
7LAND,SLVGI5,12),SMC(3),SMSP(3),STYP(20),SUB8FI3,10),SUBCFI3,10),SU 
8MCFI 3) ,THIN( 3 ) » TMBR, TMPO » TYPNM ( 20 ) , DELAY (3 ) *ACFNL 13,5,15) , ACRGN I  3 , 
95,15) ,TIME,PDCFRI5, 12 ) ,PDCFN< 5, 12 ) ,0PCU(3) ,FNCU(3) .CUINTI3) .ACINTI 
13),FNBD(3),BFINTI3),0P8DI3),TEM,MNK,KN0,FCTRI2I .PRODI  2) ,KAK,V0MI2 ) 

2,  AD J  I  3) , ALOWCI 3) .ALWBF13) ,BDMAI (3) ,CUMAI (3) .PAIBDI3) ,PAICU(3) , D8H0 

3,  CENO.REST.UBHT, BA ST , N WGP , HEL P I  5, 12) ,BA(21 

C 

DIMENSION  DFBFI3, 15), DFMC ( 3 , 1 5 ) , SATH ( 3  I , SBFR I  3 )  ,SBH  13 1 ,SBMI3,5),SB 
1SV(3),SCA(3,5),SCB(3,5) , SCUI 3,5  I , SCUR ( 3) , SOB  F ( 3 ) , SDMCI 3) ,SFR(3) ,S0 
2P(3,5),SSL(3,5),STBSI10),STF0I10) ,STHRI 10) ,STLV( 10) ,STNC ( 10 ) .STONI 
310),SANCUT(3),SFNL(3l,SOPTAI3),SOPTBI3),S0PTCI3) ,RGAC(3) , FNAC { 3 ) , T 
4HACI 3) ,RGCUI 3) , F I NC ( 3) ,THCU( 31 ,RGBD(3),FINB(3),THBD(3),T0TAC(3),T0 
5TCUI 3) ,TOTBD( 3) , SCNB I  3 , 5 ) , SCRB I  3 , 5 1 , SC N T I  1 0 ) , SC RT I  1 0  I , SCN ( 3 ) , SCR ( 3 
6) ,SHL I  3,5) ,STHP( 10) ,SAHPI 3 ) 

C 

C    INITIALIZE  VARIABLES  COMPUTED  BY   THIS  ROUTINE. 

C 

DC   1  1=1,3 
FNAC I  II    =  0.0 
RGACI  II    =  0.0 
SAHPII)   =  0.0 
SANCUTI  I  I   =  0.0 
SATHI I )   =  0.0 
SBFRI I )   =  0.0 
SBH( I )   =  0.0 
SBSVI I )   =  0.0 
SCNI  I  )   =  0.0 
SCR(I)   =  0.0 
SCUR(I)    =  0.0 
SCBF(I)   =  0.0 
SCMC(I)   =  0.0 
SFNL(I)   =  0.0 
SFR( I )   =  0.0 
SOPTAI I )   =  0.0 
S0PT8( I )   =  0.0 
SOPTCI  I  )   =  0.0 
DO   1  J-1,5 
SBMI I , J  1    =  0.0 
SCA( I , J)    =  0.0 
SCB(  I.J)   =  0.0 
SCNBI I, J)   =  0.0 
SCRBI  I, J)    =  0.0 


SCUI I, J) 
SHLI I, J] 
SCPI I , J ) 
SSL  I  I , J ) 

1  CCNTINUE 
DO  2  1=1 
DD  2  J=l 
D F 8 F (  I,  J 

2  DFMC (  I,  J 
DO  3  1=1 
SCNT(  I  I 
SCRTI  I  1 
STBSI  I  ) 
STFOI I  ) 
STHP(  I  ) 
STHRI  I  I 
STLVI  I  ) 
STNCI I  ) 

3  STONI  I  ) 
ANNAC  = 
ANNBO 
ANNCU 
SIDLA 
SIOLB 
SIDLC 
STHBF 
STHCM 
OURS 


0.0 
0.0 


10 
0.0 


0.0 
0.0 


0.0 
0.0 
0.0 


0.0 
SL  AND 


C   COMPUTE   DIFFERENCES   BETWEEN  ACTUAL   AND  OESIREO  GROWING  STOCKS. 

C 

00    10  I=1,NWGP 
DC   10  J=l, 15 

DFBFII.J)   =  ABFAG(I.J)   -  BFAGEII.JI 
10  OFMC(I,J)    =   AMCAGII.J)   -  CFAGE(I,J) 

C 

C  COMPUTE  TOTAL   DIFFERENCES  BETWEEN  ACTUAL  AND   DESIRED  STOCKS. 

C 

DC   11  I=1,NWGP 


-26  - 


RC    11   J=  1 ,  1  5 

SCBFI  I  )    =   S DBF  (  1  I    ♦  OF BF  (  I  ,  J  I 
11   SDMCII)   =   SDMCII)   ♦  OFMCII.JI 

C 

C  PRINT  PAGE  TYPE  2  -  ACTUAL  AND  DESIRED  GROWING  STOCKS  ANO  DIFFERENCES. 
C 

DC   40   KA=  1 , NWGP 
WRITE  (6,15) 

15  FORMAT    I 1H1,/»60X, 11HPAGE    TYPE  2) 
WRITE  (6,161 

16  FCRHAT    (  1H0, 34X , 58HC OMP AR I  SON   OF    ACTUAL    GROWING    STOCK   WITH  GROWING 
1    STOCK  GOAL) 

WRITE    (6,171    ( f ORETI I  I , 1  =  1, 3  I 

17  FCRHAT    (1H  ,54X,3A8i 
IFIKA   .EO.   2)   GO  TO  19 
WRITE  (6,16) 

18  FORMAT    I  1H0, 56X, 18HP INE  WORKING  GROUPi/1 
GO  TO  25 

14  WRITE  16,201 

20   FORMAT    (  1  HO ,  5 5X ,  20HSPRUC E   WORKING  GROUP,/) 

25  WRITE  (6,261 

26  FORMAT    (1H   ,  34 X ,  6 2HTH0USAND S  OF   BOARO  FEET    IN  TREES   10.0   INCHES  D. 
18. H.    AND   LARGER, / ) 

WRITE  (6,27) 

27  FORMAT    (  1H0,  12X, 3HAGE , 1 IX, 14HACTUAL   GROWING, 10X, 13HGR0WING   STOCK,  1 
15X.6HV0LUME, 15X.9HSTATUS  OF) 

WRITE  (6,28) 

28  FORMAT   ( IH   , 1 IX, 5HCLASS, 14 X , 5H STOCK , 19X.4HG0AL , 18X , 10HD I F FERFNCE , 1 
1 1 X , 1 3HACTUAL  VOLUME,/) 

OC    34  1=1,15 


I 


10 


IFIDFBF(KA,I )  .LT.  0.01  GO  TO  30 
IFIDFBFIKA, I )    .EO.   0.0)   GO  TO  32 

WRITE    (6, 29)    J, ABFAGI KA, I  ) , BFAGE (KA, I  I , DFBF (KA, 1 ) 

29  FORMAT    (1H   , 1 2X , I  3 , 1 1 X , F 14 . 1 , 9X , F 1 4. 1 , 9 X , F 1 4 . 1 , 1 4 X , 7HSURPLUS ) 
GO  TO  34 

30  WRITE    (6,311    J , ABFAGI KA, I ) , BFAGE (KA, I ) ,DFBF ( KA, I ) 

31  FORMAT    ( 1H    , 12X, 13, 11X.F14. 1,9X,F 14. 1 ,9X,F14. 1 , 1 4 X , 7H0E F I C I T I 
GC  TO  34 

3  2  WRITE   (6,33)    J, ABFAGIKA, I ) , BFAGE IKA, I ) ,DF8F (KA,  I  ) 

33  FORMAT    (  1H   , 1 2X , I  3 , 1 1 X , F 14 . 1 . 9X , F 1 4 . 1 , 9X , F 14 . 1 , 1 4X , 7HC0RREC T I 

34  CCNTINUE 

WRITE   (6,35)    SBF(KA) .GVLBFIKAI ,SOBF (KA) 

35  FORMAT    (  1H0 ■  1 1 X , 5HT0T AL • 1  OX , F 14 . 1 , 9X , F 1 4 . 1 , 9X , F 1 4 . 1 , / I 
WRITE  (6,36) 

36  FORMAT    I  1  HO , 3 IX , 67HHUN0RED S  OF   MERCH.   CUBIC   FEET   IN  TREES  6.0  INCH 
1ES   O.B.H.    AND  LARGER,/) 

WRITE  16,27) 
WRITE  16,28) 
DO   39  1=1,15 


I 


10 


IF1 DFMCIKA, I  I  .LT.  O.C)  GO  TO  37 
IF  I DFMC I KA, I  I    .EO.   0.0)   GO   TO  38 

WRITE    16,29)    J.AMCAGIKA, I  I ,CFAGEIKA,I ) .DFMCIKA, I ) 

GO  TO  39 

37  WRITE    16,311    J , AMCAG I K A , I ) , CF AGE  I K A , I ) , DF MC  I K A , I  I 

GC  TO  39 

38  WRITE    (6,331    J , AMCAG ( KA, I  I , CFAGE ( KA, I  I  ,DFMC ( KA , 1  ) 

39  CCNTINUE 

WRITE    16,35)    SMCIKAI .SUMCFI KAI .SDMC(KA) 

40  CCNTINUE 

C 

C  SUMMARIZE  VOLUMES  EXPECTEC  DURING  NEXT  PERIOO  BY  BLOCK  AND  TYPE. 
C 

DO  70  1=1, NBK 
00   70  J=l,5 

SBMIl.ll  =  SBMIl.I)  ♦  BFTHIl.J] 
SCAI1.I)  =  SCAIl.I)  ♦  CUTAIl.J) 
SCBIl.I)  =  SCBIl.II  ♦  CUTBII.J) 
SCNBIl.II  =  SCNBIl.I)  *  PDCFNII.J) 
SCRBIl.I)  =  SCRBIl.I)  *  PDCFRII.JI 
SCUd.I)  =  SCUIl, I)  »  CMTHII.J) 
SHL(ltl)  =  SHLIl.II  ♦  HELPII.J) 
SOPH, I)  =  SOPH, II  «  OPENII.J) 
SSL(l.I)  =  SSLIl.I)   ♦  SLVGIl.JI 

70  CONTINUE 

DC   71    1=1, NBK 
DO   71  J=6,10 

SBMI2.I)  =  SBMI2.II  »  BFTHIl.J) 
SCA(2,I)  =  SCAI2.I)  ♦  CUTAIl.J) 
SCBI2.I)  =  SCBI2.I)  ♦  CUTBII.J) 
SCNBI2.I)  =  SCNBI2.I)  ♦  PDCFNII.J) 
SCRBI2.I)  =  SCRBI2.1)  ♦  PDCFRII.JI 
SCUI2.I)  =  SCUI2.I)  ♦  CMTHII.J) 
SHLI2.I)  =  SHLI2.I)  +  HELPII.J) 
S0PI2.I)  =  S0PI2.II  ♦  OPENII.J) 
SSLI2.I)  =  SSLI2.I)  ♦  SLVGII.J) 

71  CONTINUE 

DC  82  1=1. NBK 
OC   82   J=l.  10 

SCNTIJ)   =   SCNTIJ)   +  PDCFNII.J) 
SCRTIJ)   =  SCRTIJ)   ♦  PDCFRII.JI 
STBSIJ)   =   STBSIJI   +  BFTHIl.J) 
STFOIJ)   =   STFOIJ)    ♦  CUTBII.J) 
STHP(J)   =   STHP1JI   +  HELPII.J) 
STHR(J)   =   STHRIJ)   ♦  CUTAIl.J) 
STLVIJ)    =   STLVIJ1   +  SLVGII.J) 
STNCIJ)   =   STNCIJ)   ♦  CMTHII.J) 
STONIJ)   =   STONIJ)   ♦  OPENII.J)- 
B2  CCNTINUE 

DO  83  I=1,NWGP 
DC   83  J=1,NBK 

SAHPII)    =   SAHPIII   +  SHLII.J) 
SATHI 1  I    =   SATHI I )   *  SOPI I , J ) 
SBFRI  I  )   =   SBFRI  I  I   ♦   SBMI I.J) 
SBHI  I )   =   SBHI 1  I   *   SCA (I.J) 
SBSVI I )   =   SBSVI I  I   ♦   SSLI I , J ) 
SCN I  I )   =   SCNI I )   ♦   SCNB I  I.J) 
SCRI  I  I   =   SCRI  I  I    ♦   SCRBI I.J) 
SCURIII    =   SCURII)   ♦  SCUII.J) 


SFRI  I  )    =   SFRI  I  I    «   SCB ( I , J  I 
83  CCNTINUE 

C 

C   PRINT   PAGE  TYPE   3  -   POTENTIAL   WCRK   ANO  YIELDS  FCR  NEXT  PERICC. 
C 

CO    210  KA=1,NWGP 
WRITE  (6,1301 

130  FORMAT    I  1H1, //,60X, 1 1HPAGE    TYPE  3) 
WRITE  16,1311 

131  FORMAT    I 1H0.40X.46HPOTENTIAL   WORK  LOAD  ANC   YIELDS   FOR   NEXT  PERIOD) 
WRITE    16,1321    I FORET I  I  I , 1  =  1 ,31 

132  FORMAT    I IH    , 52X, 3AB) 
WRITE-  16,133) 

133  FORMAT    I 1H0,/,41X,47HACRES    CF   COMMERCIAL    THINNING    DURING   NEXT  PERI 
IOC  ) 

IFIKA   . EC .  21   GO  TO  142 
WRITE  16,141) 

141  FORMAT    I 1H0,/,4X,5H8L0CK, 12X.6HTYPE    1.13X.6HTYPE    2.13X.6HTYPE  3,13 
1X.6HTYPE    4,13X,6HTYPE    5. 14X.5HTCTAL./I 

MK  =  1 
NK  =  5 
GC  TO  150 

142  WRITE    16, 143) 

143  FORMAT    I  1  HO ,  /  ,  4 X , 5H8L OCK , 1 2 X , 6HT YP E    6,13X,6HTYPE    7,13X,6HTYPE  B,13 
1X.6HTYPE    9,12X,7HTYPE    1 0 . 1 4 X , 5H TO T A L , / ) 

MK  =  6 
NK  =  10 
150  00   154   1=1, NOK 

WRITE    (6,153)    I  , (OPEN  I  I , J  )  , J  =  MK,NK ) .SOPIKA, I ) 

153  FORMAT    I  IH   , 4X , I  2 , 1  OX , F I  1 . 1 , 5  I  8 X , F 1 1 . 1 ) I 

154  CCNTINUE 

WRITE    16,1551    I STONI I ) , I=MK,NK] .SATHI KA) 

155  FORMAT    I  1H0, 3X, 5HT0TAL ,61 8X.F11. 1  I ) 
WRITE  16,1561 

156  FORMAT   ( 1H0, //, 44X, 39HHUNDRE0S  OF   CU.   FT.   REMOVED  BY  THINNING! 
IFIKA   .EC.   2)   GO   TO  157 

WRITE  (6,141) 
GO  TO  158 

157  WRITE  16,143) 

158  DC   159   1=1, NBK 

WRITE    16,153)    I , ICMTHI I , J  I , J=MK,NK I .SCUIKA, I ) 

159  CCNTINUE 

WRITE    16,155)    (STNCI I ),I=MK,NK) tSCURIKA) 
WRITE  (6,164) 

164  FORMAT    (  1H0 , / / , 50X , 29HM  BD.   FT.   REMOVED   BY  THINNING) 
IFIKA   . EQ ■   2)   GO  TO  165 

WRITE  (6,1411 
GO  TO  166 

165  WRITE    (6, 143) 

166  DC   167   1=1, NBK 

WRITE    (6,1531    I,  IBFTHI  I  , J  I , J=MK,NK I ,SBM( KA.l  I 

167  CCNTINUE 

WRITE    (6,155)    I STBSI  I  )  , I=MK,NK I  , SBFR I KAI 
WRITE  (6,130) 
WRITE  (6,1721 

172  FORMAT   1 1H0, / / , 44X , 39HM  BO.   FT.    TO  BE   SALVAGED   IN  NEXT  PERIOO 
IFIKA   .EO.   21   GO   TO  173 

WRITE  16,141) 
GO  TO  174 

173  WR ITE    I  6,  143) 

174  00   175   1=1, NBK 

WRITE    16,153)    I, I SLVGI I , J  I , J=MK,NK) ,SSL IKA, I  I 

175  CCNTINUE 

WRITE    16.155)    ISTLVI I  )»I=MK.NK)  .SBSVIKA) 
WRITE  (6,179) 

179  FORMAT   (  1  HO, / / , 4  1 X , 46HM  BD.   FT.    TO  BF   HARVESTED  BY   REGENERATION  CU 
ITS  ) 

IFIKA   .EC.   2)   GO   TO  180 
WRITE  (6,141) 
GC  TO  181 

180  WRITE  16,143) 

181  DC   182   1=1, NBK 

WRITE    16,153)    I , ICUTAI I , J) , J=MK,NK ) ,SCAI KA, I  I 

182  CONTINUE 

WRITE    (6,155)    (STHRI I ) , I=MK,NK ) .SBHIKA ) 
WRITE  (6,185) 

1B5   FORMAT   I 1H0, / / , 4 3X , 42HHUNDR ED S  OF   CU.   FT.   FROM   REGENERATION  CUTS) 
IFIKA   .EO.   21   GO  TO  186 
WRITE  16,141) 
GO  TO  187 

186  WRITE    16, 143) 

187  DC   188   1=1, NBK 

WRITE   (6,1531    I , IPOCFRI I , J) , J=MK,NK) ,SCRB IKA, I  1 

188  CCNTINUE 

WRITE    (6,155)    ISCRTI I  I , I=MK,NK) .SCRIKAI 
WRITE  16,130) 
WRITE  16,193) 

193  FORMAT    I  1  HO , / / ,  37X ,  54 HM  BO.   FT.    TO  BE   HARVESTED  8Y  FINAL   REMOVAL  0 
IF  OVERWOOOI 

IFIKA    . EO.    2)    GO    TO  194 
WRITE  (6,1411 
GO  TO  195 

194  WRITE    16, 143) 

195  DC   196   1=1, NBK 

WRITE   (6,153)    I , ICUTBI I, J  I , J  =  MK,NK) ,SCBI KA ■ I  I 

196  CCNTINUE 

WRITE   16,155)    I STFOI  I  )  , I=MK,NK) ,SFR IKAI 
WRITE  (6,2011 

201  FORMAT    I  1H0,//,46X,35FHUN0REDS  OF  CU.    FT.   FROM   FINAL  CUTSI 
IFIKA   .EO.   2)   GO   TO  202 

WRITE  16,141) 
GO  TO  203 

202  WRITE   16, 143) 

203  DC   204    1  =  1, NBK 

WRITE    16,153)    I , IPDCFNI I , J) , J=MK,NK) .SCNB (KA, I  I 

204  CCNTINUE 

WRITE    (6,155)    I SCNTI I  I , I=MK,NKI ,SCN(KA) 
WRITE  16,205) 

205  FORMAT    I  1H0.//.39X.50HACRES  OF   NONCOMMERCIAL   THINNING  DURING  NEXT 
1PERI0D) 
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IFIKA    .EC.    2)    GO    TO  206 
WRITE  (6,141) 
GO  TO  207 

206  WRITE    (6,  1431 

207  CC   208   I  =  1 , N  RK 

WRITE   (6,1531    I , (HELP! I , J) ,J=MK,NK) ,SHL(KA, I ) 

208  CONTINUE 

WRITE    (6,155)    ( STHP (  I  I ,  I =MK  ,NK )  , SAHP ( K4 ) 
210  CONTINUE 

C 

C   SUM   THE   ANNUAL   CUTS   8ASEC   ON  OPTIMUM   AREA  REGULATION  8Y  WORKING  GROUP 

C   AND  WORKING  CIRCLE. 

C 

DO   230  I=1,NWGP 
DC   230  J=l,10 
230   SANCUT(I)    =    SANCUTII)    ♦  ANCLTII.JI 
DO  235  I=1,NWGP 
SFNL (II    =   SANCUT ( I  I 

[F(SHWD(I)    .EC.   C.OI    SFNL(I)    =  0.0 
235  CONTINUE 

DC   240  I=1,NWGP 

SOPTA(II    =    SANCUTII)    +    SFNL(I)    ♦   AC  I  NT  I  I  ) 
SOPTBIII    =   0P6DII)    *   FNBO(l)    *   8  F I  NT ( I ) 
SOPTC(I)    =  OPCU(I)    ♦   FNCUII)   +  CUINT(I) 
SICLA   =   SICLA   +   SOPTAI I ) 
SIDLB   =   SIDLB   +   SOPTB (  I  ) 
240   SIDLC   =   SIDLC   +  SOPTC(I) 

C 

C   COMPUTE   POSSIBLE   ANNUAL  CUTS  DURING   NEXT   PERIOD  -   BASIS   WORK  INDEX. 
C 

DC  250  [-WN.WGP 
DO   250  J=1,NBK 
DC  250  K=l,15 

RGAC(I)    =   RGAC(I)    <-  ACRGN(I,J,K) 
250   FNAC(I)   =   FNAC(I)   ♦  ACFNLII.J.K) 
T  EM    =    1.0    /  TIME 
00  260  [=1,NWGP 
FINBI I )   =   SFR1  I  )   *  TEM 
FINCI  I  I   =   SCN( 1 )   *  TEM 
FN  AC (  I  I    =    FNACI  I  )    »  TEM 
RG  AC  (  I  I    =   RGACI  I  )   »  TEM 
RGBDI  I  I    =   SBH( I  I   *  TEM 
RGCUI I  1   =  SCR (  I  )   *  TEM 

THAC(I)    =    (SATH(I)    +    SAHP(II)    *  TEM 
TFBDI I )   =  S8FRI 1  I   *  TEM 
TFCU! I )   =   SCUR (II   *  TEM 

260  CONTINUE 

DO   261  I=1,NWGP 

TOTACIII   =  RGACIII    +   FNAC ( I  I    ♦  THACIII 
TCTCUIII   =  RGCUIII    +   FINCIII   +  THCU(I) 
TOTBDIII   =  RGBDt  I  I    t   FINBIII    +  THBD1I) 
ANN  AC    =    ANNAC    t  TOTACIII 
ANNCU    =    ANNCU    +  TOTCUIII 

261  ANNBD   =   ANNBD  +  TOTBDIII 

C 

C   PRINT   PAGE   TYPE    1   -   SUMMARY  OF   RESULTS   ANO  GUIDE   TO  MANAGEMENT. 

C 

WRITE  (6,2991 

299  FORMAT    (  1 H 1 , / / , 59X , 1 1  HP AGE   TYPE  II 
WRITE    (6,  300)    I FORETI I  I , 1  =  1 , 3  I 

300  FORMAT   I  1  HO, // ,  39X , 28HGU 1 06   FOR   MANAGEMENT   OF   THE  ,3A8,/I 
WRITE    (6,  302  )    I  DATE  I  I  1,1  =  1,3) 

302   FORMAT    I  1  HO , 5 X , 2 5H8 A S ED  ON   DATA   CURRENT   TC  ,3A8) 

WRITE    16,  3041    SLAND.OURS, STYP ( 17  I , TMBR.SBARE , STYP [ 16 ) ,STYP ( 13  I 

304   FORMAT    (1H0.31HTHE   WORKING  CIRCLE   CONSISTS   OF   ,F10.1,18H   ACRES.  OF 
1   THESE,    ,FL0.1,27H  ACRES  ARE   OWNED  BY   US   AND   ,F10.1,19H  ACRES  ARE 
21NTERI0R/1H   .45HTRACTS  OF   OTHER   OWNERSHIP.   OUR  AREA   INCLUDES  ,F10. 
31.17H   TIMBEREC   ACRES,    ,F10.1,18H   PLANTABLE   ACRES,    ,F10.1,17H  ACRES 

4  M  AN AG  EC   AS/1H   , 1 1HRANGE ,   AND   ,F10.1,106H  ACRES   OF   HIGH  RECREATION 

5  USE  WHERE  TIMBER  YIELDS  ARE  INCIDENTAL  AND  NOT  REGULATED.  SEE  PAG 
6E   TYPE   5,    6,    8,/lH   , 3 OHAND   9  FOR   AREA  CLASSIFICATION.) 

WRITE  16,3061 

306   FORMAT    (1HC7CHTHE   TIMBER  RESOURCE  OF   THIS   WORKING  CIRCLE  WILL  BE 
1MANAGED   AS  FOLLOWS- > 
WRITE    16,308)  FINL(l) 
308   FORMAT    (  IH   ,11X,44HPINE   WORKING  GROUP-   TWC-CUT   SHELTER WCOO  WITH.F5 
1.1.38H  YEARS   BETWEEN   REMOVAL   ANO  FINAL  CUTS.) 
WRITE  16,310) 

310   FORMAT    I1H   , 1 1 X , 7 3H SPR UC E   WORKING  GROUP-   CLEARCUT   BY  SMALL   AREAS  W 
1ITH  SEEDING   FROM   THE  SIOE.) 
WRITE  16,320) 

320    FORMAT    (  1  HO , 5 8HR EGUL A T I  ON   OF    THE   CUT    WILL    BE    BY    AREA    WITH    A  VOLUME 
1  CHECK.) 
WRITE  (6,322) 

322   FCRMAT    ( 1H0, 125HWITH   THE   DECISIONS  ANO  AREAS  CN   PAGES   TYPE  4   AND  1 
13  AND  WITH  BALANCED  DISTRIBUTION  OF   AGE   CLASSES,    ALLOWABLE  ANNUAL 
2CUT   W0ULD/1H   ,14HBE   AS  FOLLOWS-) 
WRITE  (6,324) 

324    FORMAT    (  1  HO , 64 X ,  1 1HHUN0R ED S   0F/1H    , 42 X , 5H AC R E S , 19X ,7HCU .  FT.,17X,9 
1HM    BO.  FT.) 
WRITE  (6,3261 
326    FORMAT    I  1  HO ,  1 1 X ,  1 7HRE GENER A T I  ON  CUTS) 

WRITE    (6,328)    SANCUTII), 0PCU(1),0PBD(1) 
328   FORMAT    ( 1H0, 15X, 18HPINE   WORKING   GROUP, 5X,F11.1,14X,F11.1,14X,F1 1.1 
1  I 

WRITE    (6,330)    SANCUT(2) ,0PCU(2) ,0PBD(2) 
330   FORMAT    (  1  HO , 1 5X , 20H SPRUC E   WORKING  GROUP , 3X , F 1 1 . 1 , 14X , F 1 1 . 1 , 1 4X , F 1 1 
1.11 

WRITE  (6,340) 
340    FCRMAT    I  1  HO , 1 1 X ,  1 8H F  I  N AL    REMOVAL  CUTS) 

WRITE   (  6,  328  )    SFNL ( 1 )  ,  FNCU ( 1  I , FNBD I  1 ) 

WRITE    (6,330)    SFNLI 2) ,FNCU( 2) .FNBDI2) 

WRITE  (6,342) 
342   FCRMAT    (  I  H 0 ,  1  IX ,  1  7H  I N TERM  ED  I  A TE  CUTS) 

WRITE    (6,328)   AC  I  NT ( 1 ) , CU I  NT ( 1 ) , BF  I  NT (  1  ) 

WRITE    16,  330)   AC  I  NT  I  2  I , CU 1  NT  I  2 ) , BF I  NT  I  2 ) 

WRITE    1 6, 344 ) 


34',    FCRMAT    (  1FC,  I  IX,  18HTCTAL    FOR   ONE  YEAR) 

W-UTe    (6,32fl)    SOPTAI  1  I  ,SOPTC  (  1  I  ,  SCPTP  I  1  ) 

WRITE    16,3301    SOPTAI 2 1 ,S0PTC(2) ,SCPTB (2) 

WRITr    (6,346)    S I CL A , S I DLC , S I DL 8 
346    FCRMAT    (  1  HO ,  1 1 X , 1 6HT0T AL    ALL    GROUP S , 1 1 X , F  I  1 . 1 , 1 4 X , F 1 1 . 1 , 1 4 X , F 1 1 . 1 ) 

WR I T  t    (6,  3481 

348    FORMAT    (  1  HO , / ,  1 X ,  1 26HCNL Y   COMMERCIAL    VOLUMES    INCLUCED    IN    THE  TABLE 

1  ABOVE  ANO  IN  THE  NEXT  TA8LE.  CUTS  ARE  ASSIGNED  TO  BOARD-FOOT  TOTA 
2LS  IF  POSSIBLE. /1H  , 1 12HTHEY  APPEAR  IN  CUBIC-FCCT  TOTALS  ONLY  WHEN 
3  COMMERCIAL  SAWLCG  CUTS  ARE  NOT  POSSIBLE.  AREAS  INCLUDE  NCNCOMM ERC 
4IAL. ) 

WRITE  16,3501 
350   FORMAT    (  1 H 1 , / / , 5 6X , 1 8HP AGE   TYPE   1,  CONT.) 
WRITE  (6,352) 

352    FORMAT    [  1 H 0 , 1 2 6HC X  AM  I N A T I  ON   OF    THE    WORKING   CIRCLE    INDICATES    THAT  A 
1CTUAL   ANNUAL   CUT  DURING   THE   NEXT   PERICO  CCULO  BE   AS   SHOWN  CN  PAGES 

2  TYPE   3    IF/1H   , 1 25HAL L   POSSIBLE  CULTURAL   OPERATIONS,   AS  INDICATED 
38Y  WORK   CODES,   WERE   PERFORMED.    IN   SUMMARY ,   THERE   IS  A   POTENTIAL  AN 
4NUAL   CUT  CF-) 

WRITE  (6,3241 
WRITE  (6,3261 

WRITE  (6,3281  RGACI 1) ,RGCU( 1) ,RGBD(1) 
WRITE  (6,330)  RGAC ( 2 ) , RGCU ( 2 ) , RGBD ( 2 ) 
WRITE  (6,340) 

WRITE  (6,328)  FNAC( 1) ,FINC( 1) , FINBI 1) 
WRITE  (6,330)  FNACI 2) , FINCI 2) ,F INB (2) 
WRITE  16,3421 

WRITE  (6,328)  THAC (  1  ) , THCU I  1 ) , THBD ( 1 ) 
WRITE  (6,330)  THACI 2) , THCUI 2) ,THB0(2) 
WRITE  (6,344) 

WRITE    (6,  3281    TO T AC (  1  )  ,  TO TC U (  1  I , TCTBD ( 1 ) 
WRITE    (6,  330)    TO T AC ( 2  I , TO TCU ( 2  I , TO TBO ( 2  I 
WRITE    (6,346)    ANN AC, ANNCU, ANNBD 
WRITE  (6,360) 

360    FORMAT    (  1H0,//, IX, 85HFORMULA   COMPUTATION   CF   ALLOWABLE    ANNUAL  CUT. 
1CUBIC-F00T  VOLUMES   INCLUDE   SAWLOG  TREES-) 

C 

C   COMPUTE   ANNUAL  CUT   BY  HEYER   FORMULA  USING   M.A.I.   FROM   YIELD  TABLES. 

C 

CO   380  I=1,NWGP 

IFIACJI  I  I    . EO .   0.0)   GO   TO  379 

ALWGF(I)    =    BCMAI(I)    *    ( SDBF ( I )    /  AOJIIII 

ALOWC(I)    =   CUMAIIIl    *    (SDMC11I    /    ADJ (III 

GO   TO  380 

379  ALtvBFIll    =   BOMAI(I)   +  SDBFII) 
ALOWCI  I  )    =   CUMA I  II)    *    SOMC (  I  I 

380  CONTINUE 
WRITE  16,3901 

390   FORMAT    I  1H0 , 1 1 X , 79HHE YER   FORMULA   WITH   M.A.I.    FROM   OPTIMUM  YIELD  TA 
1BLES  AND  COMPUTED  GROWING  STOCKS) 
WRITE  16,364) 

364   FORMAT   I 1H0, 42X , 1 OHAO JUSTMEN T , 1 2X , 1 1HHUNDRE 0 S  0F/1H   , 44X , 6H P ER 1 00 , 
U6X.7HCU.    FT.,17X,9HM    BO.  FT.) 
WRITE    16,  3281    AO J  I  1 ) , ALO WC I  1 ) , AL WB F I  1 ) 
WRITE    (6,330)   ADJI2) , ALOWCI 2) ,ALWBF(2 ) 
WRITE  16,350) 
WRITE  (6,3921 

392   FORMAT    I  1  HO , 1 1 X , 6 5HME AN  ANNUAL    INCREMENTS  USEO   TO  OBTAIN   THE  RESUL 
ITS   TABULATEO  ABOVE) 
WRITE  16,364) 

WRITE  16,  328)  AC J  I  1  I , CUMA I  I  1  I , 8DMA I  I  1  I 
WRITE  16,330)  ADJI2) ,CUMAI 12) ,BDMAI (2) 
WRITE  (6,395) 

395   FCRMAT    ( 1H0, 120HF0RMULA  COMPUTATIONS   ARE   8ASE0  ON   VOLUME   AND  AREA 
1CCMPUTATI0NS   SUMMARIZED  ON   OTHER   PAGES.   VOLUME   GOALS   ARE   ON  PAGES 
2TYPE/1H    ,120H4,    10,    11,    12,    AND    13.    ACTUAL    AREAS    AND   VOLUMES    ARE  0 
3N  PAGES  TYPE  6,   7,   8,   AND  9.  CUBIC  VOLUMES  INCLUDE  ALL  TREES  LARGE 
4R/1H    , 68HAND   OLDER    THAN    MINIMUM    LIMITS   FOR    INCLUSION    IN   GROWING  ST 
50CK  VOLUME.) 
WRITE  (6,400) 

400   FORMAT    I  1  HO, 1 24H ST AND S   SELECTED   FOR  HARVEST  ANO   REGENERATION  WILL 
1INCLUDE   THOSE   CLASSED   AS   WORK   INDEX  4,    5,   OR   6.    IT   IS  EXPECTEO  THA 
2T    NEARLY  /  IH    , 126HEQUAL    AREAS    WILL    BE   CUT   ANNUALLY    IN   STANDS    CF  EAC 
3H   SITE  CLASS.    IF   THIS   IS  NOT  DESIRABLE,   FACTORS  THAT   INDICATE  R  EL  A 
4TIVE   V0LUME/1H   , 59HPR ODUC T I  ON   ( PAGE  TYPE   14  I    MAY  8E  USED  FOR  AREA 
5ACJUSTMENTS.  I 
WRITE  (6,4051 

405  FORMAT    (1H0,100HIF   WORK   IS   OONE   DURING   NEXT   PERIOD   AS   SPECIFIED  BY 
1   WORK   INCEXES,    PERIOOIC   ANNUAL    INCREMENTS  WILL   BE- ) 

WRITE  16,406) 

406  FORMAT    I 1H0,44X, 11HHUNDRE0S   0F/1H    ,46X,7HCU.    FT.,17X,9HM    BD.  FT.) 
WRITE    (6,407)    PAICUI 1 ) ,PAIBO( 1  I 

407  FORMAT    I 1H0 ,  1 5 X , 1 8HP I N E   WORKING  GROUP , 1 3 X , F 8 . 1 , 1 6X  ,  F8 .  1  I 
WRITE    16,408  )   PAICU(2) , PA  I  BO  I  2 ) 

408  FORMAT    I  1H0 , 1 5X , 20HSPRUC E   WORKING  GROUP , 1 1 X , F8 . 1 , 1 6X , F8 . 1 ) 
WRITE  16,350) 

WRITE  (6,415) 

415  FORMAT    I 1H0 , 8 5HC0RRE S POND  I NG   PERIODIC    INCREMENTS  WITH   SAME  ASSUMPT 
HONS   CONCERNING  WORK  ACCOMPLISHED-) 

WRITE  16,416) 

416  FORMAT   I 1H0.40X,  18HPINE   WORKING  GROUP , 36 X , 20H SPRUC E   WORKING  GROUP ) 
WRITE  (6,4171 

417  FORMAT    I  IH    ,  1 5X , 3HAGE , 1 4X , 1 1HHUNDREDS    OF , 44X , 1 1 HHUNDREDS  OFI 
WRITE  (6,418) 

418  FORMAT    (IH   , 4 X , 5HBL0CK , 5X , 5HC LA S S , 1 5X , 7HC U.   FT.,15X,9HM  BD.   FT. ,24 
1X.7HCU.   FT.,15X,9HM  BO.   FT., /I 

DO   420   1=1, N8K 

CC  420  J=l,15 

MA  =    ( I J-l  I   4   10 )   +  1 

NA   =  J   *  10 

WRITE  (6,4191  I  ,MA,NA,GRMC ( 1 , 1 , J I ,GRBD 1 1 , 1 , J) ,GRHC (2 , 1 , J) ,GRBD!2,  I 
1 ,  J  ) 

419  FORMAT   (IH   ,5X, I2.6X, 13,  1H-, 13, 13X.F10. 1 , 12X.F10. 1,23X,F10. 1 ,12X,F 
110.1) 

420  CONTINUE 
RETURN 
END 
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APPENDIX  2 
An  Application  of  TEVAP 


An  example  of  what  TEVAP  can  do  is  provided 
by  the  hypothetical  situation  described  below  and 
by  reproductions  of  the  computer  records  produced. 
The  test  forest,  the  mythical  Bogus  National  Forest, 
is  managed  as  one  working  circle.  The  working 
circle  is  subdivided  into  three  blocks  on  the  basis 
of  typography,  transportation  system,  and  distri- 
bution of  wood-using  plants.  Total  areas  of  each 
block,  interior  tracts  of  other  ownership,  high  use 
recreation  areas,  and  so  forth,  are  known.  The 
forest  has  not  yet  been  subdivided  into  compart- 
ments; the  AREA2  option  of  TEVAP  is  applicable. 

Numerous  decisions  have  been  made  concern- 
ing management  objectives  and  how  they  may  be 
attained.  Past  records  of  the  forest  and  silvicultural 
characteristics  of  each  species  wereconsidered  during 
the  planning  process.  Decisionmaking  was  assisted 
by  computer  simulation  of  forest  activities  (Myers 
1968).  The  effects  of  changes  in  rotation  length 
and  other  variables  subject  to  control  were  examined. 
It  was  decided  that  the  following  controls  would 
apply  to  timber  management  on  the  working  circle: 

Working  groups. 

a.  Pine  working  group— Pine  under  two-cut  shelter- 
wood. 

b.  Spruce  working  group— Spruce  clearcut  in  small 
patches  with  natural  regeneration. 

c.  A  third  group  is  still  in  the  planning  stage— 
selectively-cut  pine  in  areas  of  highest  scenic 
value.  Algorithms  applicable  to  many-aged  stands 
will  be  added  to  GOT  and  GOAL,  when  needed. 

Rotations. 

a.  Pine  group— 1  10  years  for  site  40,  130  years  for 
remainder. 

b.  Spruce  group— 90  years  for  site  50,  110  years 
for  remainder. 

Thinning. 

a.  Pine  group— Initial  thinning  at  age  30  to  level 
100.  Subsequent  thinnings  at  20-year  intervals 
to  level  100. 

b.  Spruce  group— Initial  thinning  at  age  30  to  level 


100.  Subsequent  thinnings  at  20-year  intervals 
to  level  90. 

Minimum  site  class  to  be  managed  for  wood 
products. 

a.  Pine  group— site  index  40. 

b.  Spruce  group— site  index  50. 

Many  decisions  provided  as  inputs  to  the  pro- 
gram are  recorded  on  page  type  4  of  the  output 
reproduced  below.  Other  input  data  are  recorded 
on  pages  of  types  1 ,  10,  and  13. 

An  inventory  of  the  timber  resource  and  analysis 
of  the  data  were  completed  5  years  ago.  At  that 
time,  summary  cards  with  the  items  specified  for 
data  card  type  16  were  punched.  The  inventory 
file  has  increased  annually  through  addition  of 
records  that  describe  thinning  jobs  and  other  changes 
in  stands  of  known  area.  The  inventory  file  now 
consists  of  251  records,  104  of  which  are  job  and 
similar  reports  and  147  sample  "unknown"  parts 
of  the  working  circle.  All  inventory  records  are 
updated  to  a  common  time  base  annually 
(Appendix  5). 

Land  books  and  other  records  provide  the  total 
number  of  acres  in  each  block  and  the  area  occu- 
pied by  nonforest  vegetative  and  use  types  13 
to  17,  inclusive.  These  acreages  are  recorded  on 
pages  type  5  and  6. 

The  output  that  follows  requires  use  of  data 
cards  of  all  types  except  for  types  8  to  13,  inclusive. 
Pages  appear  in  the  order  in  which  they  might 
appear  in  a  management  guide,  not  in  the  order 
produced.  For  brevity,  only  two  sheets  each  of 
pages  type  10,  11,  and  12  are  reproduced.  Com- 
plete output  would  include  six  sheets  of  each  of 
these  types,  one  for  each  site  index  class  of  each 
working  group.  Examples  of  pages  produced  with 
card  types  8  to  1  3  appear  in  Appendix  3. 

A  management  guide  can  be  produced  on  micro- 
film annually  for  distribution  to  appropriate  land 
managers  and  staff.  The  example  below  required 
69.5  seconds  of  central  processor  time  for  compila- 
tion and  execution.  The  time  required  for  compu- 
tation by  conventional  methods  might  be  as 
many  days! 
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PAGE   TYPF  1 


GUICE    FOR    MANAGEMENT   DF    THE    BOGUS    NATIONAL  FCPFST 

EASEC   CN   C  A  T  A  CURRENT  TO  JANUARY   4 ,  1971 

THE    WCRKING   CIRCLE    CONSISTS    OF        292490.4    ACRES.    OF    THESE,        244691.0    ACRES    ARE   OWNED   BY   US    AND  47799.  4    ACRES    ARE  INTERIOR 

TRACTS   CF   CTHER   OWNERSHIP.   CUR   AREA   INCLUOES        204947.8  TIMBERED  ACRES,  25661.5   PLANTABLE   ACRES,            8198.fi  ACRES  MANAGED  AS 

RANGE,  AND  3911.1  ACRES  OF  HIGH  RECREATION  USE  WHERE  TIMBER  YIELDS  ARE  INCIDENTAL  ANO  NOT  REGULATED.  SEE  PAGE  TYPE  5,  6,  8, 
ANO  9   FCR   AREA  CLASSIFICATION. 

THE   TIMBER   RESOURCE   C F   THIS  WORKING  CIRCLE   WILL   BE   MANAGED  AS  FOLLCWS- 

PINE   WORKING  GRCUP-   TWO-CUT   SHELTERWCOD   WITH  20.0  YEARS   BETWEEN  REMOVAL   ANC   FINAL  CUTS. 

SPRUCE   WORKING  GROUP-  CLFARCUT   BY   SMALL   AREAS   WITH   SEEDING   FROM  THE  SICE. 

REGULATION    CF    THE    CUT    WILL    BE    BY    AREA    WITH    A    VOLUME  CHECK. 

WITH   THE   CECISIONS   ANC  AREAS  ON   PAGES   TYPE   4   ANO    13   AND   WITH  BALANCED  DISTRIBUTION  OF   AGE  CLASSES,    ALLOWABLE   ANNUAL   CUT  WOULD 
BE   AS  FCLLPWS- 

HUNDRECS  CF 

ACRES  CU.   FT.  M  BD.  FT. 


REGENERATION  CUTS 

PINE  WORKING  GRCUP  1666.3 

SPRUCE   WORKING  GROUP  167.8 

FINAL   REMOVAL  CUTS 

PINE  WORKING  GROUP  1666.3 

SPRUCE  WORKING  GROUP  CO 

INTERMEDIATE  CUTS 

PINE  WORKING  GRCUP  8054.4 

SPRUCE  WORKING  GROUP  644.3 

TOTAL   FOR   CNE  YEAR 

PINE  WORKING  GROUP  11386.9 

SPRUCE  WORKING  GRCUP  812.1 

TOTAL   ALL   GROUPS  12199.0 


0.0 
0.0 

0.0 
0.0 

7071.9 
1248.8 

7071.9 
1248.6 
8320.7 


17  128.4 
2027.6 

10664. 1 
0.0 

7032.9 
326.3 

34825. 3 
2353.9 
37179.2 


ONLY  COMMERCIAL  VOLUMES  INCLUCEO  IN  THE  TABLE  ABOVE  ANO  IN  THE  NEXT  TABLE.  CUTS  ARE  ASSIGNED  TO  BOARD-FOOT  TOTALS  IF  POSSIBLE. 
THEY   APPEAR   IN  CUBIC-FCOT   TOTALS  ONLY   WHEN  COMMERCIAL   SAWLOG  CUTS   ARE   NOT   POSSIBLE.   AREAS    INCLUOE  NONCOMMERCIAL. 


PAGE   TYPE    1,  CCNT. 

EXAMINATION  OF  THE  WORKING  CIRCLE  INDICATES  THAT  ACTUAL  ANNUAL  CUT  DURING  THE  NEXT  PERIOO  COULD  BE  AS  SHOWN  ON  PAGES  TYPE  3  IF 
ALL   POSSIBLE   CULTURAL   OPERATIONS,    AS    INDICATED  BY  WORK  CODES,   WERE   PERFORMED.    IN   SUMMARY,   THERE    IS   A   POTENTIAL   ANNUAL   CUT  OF- 

HUNDREDS  OF 


REGENERATION  CUTS 

PINE  WCRKING  GROUP  3588.3 

SPRUCE  WORKING  GROUP  239.0 

FINAL    REMOVAL  CUTS 

PINF   WCRKING   GROUP  2151.9 

SPRUCE  WORKING  GROUP  CO 

INTERMEDIATE  CUTS 

PINE  WCRKING  GROUP  8624.1 

SPRUCE   WORKING  GROUP  773.0 

TCTAL   FCR   CNE  YEAR 

PINE  WCRKING  GROUP  14364.4 

SPRUCE  WORKING  GROUP  1012.0 

TCTAL   ALL   GROUPS  15376.3 


9681.4 
0.0 

0.0 
0.0 

19270.5 
5480. 1 

28951.9 
5480.  1 
34431.9 


29755.7 
3807.6 

6900.4 
0.0 

3298.7 
1733.8 

39954.8 
5541.4 
45496.2 


FORMULA  COMPUTATION  CF   ALLOWABLE   ANNUAL   CUT.   CUBIC-FCOT  VOLUMES   INCLUDE   SAWLOG  TREES- 

HEYER   FORMULA  WTTH  M.A.I.   FROM  OPTIMUM  YIELD   TABLES  AND  COMPUTED  GROWING  STOCKS 


PINE   WCRKING  GROUP 
SPRUCE  WORKING  GROUP 


ADJUSTMENT 
PER 10D 


30.0 
3C0 


HUNDREDS  CF 
CU.  FT. 


74829.7 
18929.9 


M  BD.  FT. 
25314.5 
4838.2 
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PAGE   TYPE    1,  CONT. 


MEAN   ANNUAL    INCREMENTS  USED   TO  OBTAIN   THE  RESULTS  TABULATED  ABOVE 

ADJUSTMENT  HUNDREDS  OF 

PERIOD  CU.   FT.  M  BD.  FT. 

PINE  WORKING   GROUP  30.0  84922.0  35617.8 

SPRUCE  WORKING  GROUP  30.0  7490.2  2401.2 

FORMULA  COMPUTATIONS  ARE  BASED  ON  VOLUME  AND  AREA  COMPUTATIONS  SUMMARIZED  ON  OTHER  PAGES.  VOLUME  GOALS  ARE  ON  PAGES  TYPE 
4,  10,  11,  12,  AND  13.  ACTUAL  AREAS  AND  VOLUMES  ARE  ON  PAGES  TYPE  6,  7,  B,  AND  9.  CUBIC  VOLUMES  INCLUDE  ALL  TREES  LARGER 
AND  OLDER   THAN  MINIMUM  LIMITS   FOR    INCLUSION   IN  GROWING   STOCK  VOLUME. 

STANDS   SELECTED  FOR  HARVEST   AND  REGENERATION  WILL    INCLUDE   THOSE  CLASSED  AS  WORK   INDEX   4,   5,   OR  6.    IT   IS   EXPECTEO  THAT  NEARLY 
EGUAL   AREAS   WILL   BE   CUT  ANNUALLY   IN  STANDS  OF   EACH   SITE  CLASS.    IF   THIS   IS  NOT   DESIRABLE,    FACTORS   THAT    INDICATE  RELATIVE  VOLUME 
PRODUCTION   (PAGE   TYPE   14)   MAY   BE  USEO   FOR   AREA  ADJUSTMENTS. 

IF  WORK   IS  OONE  DURING  NEXT  PERIOO  AS  SPECIFIED  BY  WORK   INDEXES,   PERIODIC  ANNUAL  INCREMENTS  WILL  BE- 

HUNOREDS  OF 

CU.   FT.  M  BD.  FT. 

PINE  WORKING  GROUP  118077.2  47095.1 

SPRUCE  WORKING  GROUP  18426.1  6663.4 


PAGE  TYPE   1,  CONT. 

CORRESPONDING  PERIODIC   INCREMENTS  WITH  SAME  ASSUMPTIONS  CONCERNING  WORK  ACCOMPLISHED- 


PINE  WORKING 

GROUP 

SPRUCE 

WORKING  GROUP 

AGE 

HUNOREDS  OF 

HUNDREDS  OF 

LCCK 

CLASS 

CU.  FT. 

M  BD.  FT. 

CU.  FT. 

M  BO.  FT. 

1-  10 

0.0 

0.0 

0.0 

0.0 

11-  20 

0.0 

0.0 

0.0 

0.0 

21-  30 

B.4 

0.0 

0.0 

0.0 

31-  40 

4979.4 

0.0 

0.0 

0.0 

41-  50 

47312.8 

435.7 

550.9 

40.9 

51-  60 

14230.2 

0.0 

0.0 

0.0 

61-  70 

26498.3 

1845.9 

0.0 

0.0 

71-  80 

35148.8 

13629.5 

0.0 

0.0 

81-  90 

19751.9 

274.5 

0.0 

0.0 

91-100 

111.4 

69.8 

0.0 

0.0 

101-110 

61500. 1 

24610.5 

19084.0 

10018.7 

111-120 

21151.1 

13120.2 

101.0 

64.  7 

121-130 

107637.7 

46844.0 

51.9 

33.4 

131-140 

1  1788. 1 

7138.9 

4501.6 

2675. 1 

141-150 

25802.9 

15689.5 

0.0 

0.0 

2 

1-  10 

0.0 

0.0 

0.0 

0.0 

2 

11-  20 

164851.4 

132458.2 

0.0 

0.0 

2 

21-  30 

409.8 

336.2 

0.0 

0.0 

2 

31-  40 

116.2 

1.3 

0.0 

0.0 

2 

41-  50 

32520.1 

2531.7 

8799.9 

0.0 

2 

51-  60 

27999.0 

5699.3 

35446.5 

4874.4 

2 

61-  70 

40249.7 

5914.4 

182.0 

21.7 

2 

71-  80 

36220.3 

9742.8 

50204. 1 

3199.1 

2 

81-  90 

30369.5 

12720.7 

0.0 

0.0 

2 

91-100 

58031.8 

30563.8 

11346.7 

7229. 1 

2 

101-110 

54957.2 

13043.4 

23679.5 

19167.7 

2 

111-120 

36580.6 

12010.4 

446.7 

306.8 

2 

121-130 

29613.4 

15067.4 

0.0 

0.0 

2 

131-140 

14266.1 

8082. 1 

0.0 

0.0 

2 

141-150 

21200. 5 

9430.4 

0.0 

0.0 

3 

1-  10 

0.0 

0.0 

0.0 

0.0 

3 

11-  20 

0.0 

0.0 

0.0 

0.0 

3 

21-  30 

43529.0 

22954. 1 

0.0 

0.0 

3 

31-  40 

8415.4 

0.0 

0.0 

0.0 

3 

41-  50 

20688.0 

798.  1 

0.0 

0.0 

3 

51-  60 

2323.3 

16.3 

0.0 

0.0 

3 

61-  70 

11277.3 

908.3 

0.0 

0.0 

3 

71-  80 

12935.7 

1954.3 

0.0 

0.0 

3 

81-  90 

13257.4 

5756.2 

0.0 

0.0 

3 

91-100 

7350.7 

3936.0 

0.0 

0.0 

3 

101-110 

15109.3 

8981.4 

15385.5 

9102.3 

3 

11  1-120 

35976.5 

15170.2 

14480.4 

9900.4 

3 

121-130 

60397.3 

18400. 1 

0.0 

0.0 

3 

131-140 

9449.  1 

5984.0 

0.0 

0.0 

3 

141-150 

16756.8 

4631.8 

0.0 

0.0 
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COMPARISON  OF  ACTUAL  GROWING   STOCK  WITH  GROWING  STOCK  GOAL 
BOGUS   NATIONAL  FOREST 

PINE  WORKING  GROUP 

THOUSANDS   OF    BOARD    FEET    IN   TREES    10.0    INCHES    D.B.H.    AND  LARGER 


AGE 
CLASS 


ACTUAL  GROWING 
STOCK 


GROWING  STOCK 
GOAL 


VOLUME 
DIFFERENCE 


STATUS  OF 
ACTUAL  VOLUME 


80 
90 
ICO 
110 
120 
130 
1*0 
150 


0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
219.1 
10330.  I 
16599.9 
38095.3 
76097.3 
123900. 4 
215117.2 
103359.8 
158204. 7 

741923.7 


97643.0 
0.0 
0.0 
0.0 
0.0 
15731.0 
52258.4 
99933.7 
149913.2 
167977.0 
203417.8 
199403.6 
64744. 1 
0.0 
0.0 

1051021.8 


-97643.0 
0.0 
0.0 
0.0 
0.0 
-15731.0 
-52039.3 
-89603.6 
-133313.3 
-129881 .8 
-127320.5 
-75503. 1 
150373.  1 
103359.8 
158204.7 

-309098.0 


DEFIC IT 
CORRECT 
CORRECT 
CORRECT 
CORRECT 
DEFICIT 
DEFIC IT 
DEFICIT 
DEFICIT 
DEFICIT 
DEFICIT 
DEFICIT 
SURPLUS 
SURPLUS 
SURPLUS 


HUNCREDS  OF   MERCH.   CUBIC   FEET   IN  TREES  6.0   INCHES   O.B.H.   ANO  LARGER 


AGE 
CLASS 


ACTUAL  GROWING 
STOCK 


GROWING  STOCK 
GOAL 


VOLUME 
DIFFERENCE 


STATUS  OF 
ACTUAL  VOLUME 


10 

20 


100 
110 
120 
130 
140 
150 


0.0 
0.0 
209.1 
79628.0 
49538.8 
107007.9 
155484.9 
161272.0 
170358.4 
378741.9 
343991.6 
640935.4 
240455.7 
463953.5 

2791577.2 


184955.2 
0.0 
2448.0 
63022.2 
146603.2 
220570. 1 
306266.5 
338672.7 
4 17484. 8 
4142C0. 1 
457763.3 
415929.2 
126431.5 
0.0 
0.0 

3094346.9 


-164955.2 
0.0 
-2448.0 
-62813. 1 
-66975.2 
-171031.4 
-199258.6 
-183187.8 
-256212. 8 
-243841.7 
-79021.4 
-71937.6 
514503.9 
240455.7 
463953.5 

-302769.7 


DEFICIT 
CORRECT 
DEFICIT 
DEFIC IT 
DEFICIT 
DEFIC IT 
DEFIC IT 
OEFICIT 
DEFICIT 
DEFIC  IT 
DEFICIT 
OEFICIT 
SURPLUS 
SURPLUS 
SURPLUS 


PAGE   TYPE  2 

COMPARISON  OF  ACTUAL  GROWING   STOCK  WITH  GROWING   STOCK  GOAL 
BOGUS  NATIONAL  FOREST 

SPRUCE  WORKING  GROUP 

THOUSANDS  OF   BOARD  FEET   IN  TREES   10.0   INCHES   D.B.H.    ANO  LARGER 


AGE 
CLASS 


90 
100 
110 
120 
130 
140 
150 


ACTUAL  GROWING 
STOCK 

0.0 
0.0 
0.0 
0.0 
23.3 
0.0 
0.0 
0.0 
0.0 
21167.2 
62660.7 
19411.7 
177.3 
18104.6 
0.0 

121544.8 


GROWING  STOCK 
GOAL 

0.0 
0.0 
0.0 
0.0 
0.0 
683.4 
4560.7 
10612.2 
15319.3 
17259.5 
0.0 
0.0 
0.0 
0.0 
0.0 

48435. 1 


VOLUME 
DI FFERENCE 

0.0 
0.0 
0.0 
0.0 
23.3 
-683.4 
-4560.7 
-10612.2 
-15319.3 
3907.7 
62660.7 
19411.7 
177.  3 
18104.6 
0.0 

73109.7 


STATUS  OF 
ACTUAL  VOLUME 

CORRECT 
CORRECT 
CORRECT 
CORRECT 
SURPLUS 
DEFICIT 
DEFICIT 
DEFICIT 
DEFIC  IT 
SURPLUS 
SURPLUS 
SURPLUS 
SURPLUS 
SURPLUS 
CORRECT 


HUNDREDS  OF  MERCH.   CUBIC   FEET   IN  TREES   6.0   INCHES  D.B.H.    AND  LARGER 


AGE 
CLASS 

10 

20 
30 


80 
90 
100 
110 
120 
130 
140 
150 


ACTUAL  GROWING 
STOCK 

0.0 
0.0 
0.0 
0.0 
523.1 
35647.9 
287.6 
47317.7 
0.0 
67018.  1 
277328.2 
72201.0 
461.8 
47170.2 
0.0 


GROWING  STOCK 
GOAL 

0.0 
0.0 
0.0 
3736.5 
13979.6 
25178.6 
36979. 8 
40071.9 
43825.7 
40992.8 
0.0 
0.0 
0.0 
0.0 
0.0 


VOLUME 
DIFFERENCE 

0.0 
0.0 
0.0 
-3736.5 
-13456.4 
10469.4 
-36692.3 
7245.8 
-43825.7 
26025.2 
277328.2 
72201.0 
461.8 
47170.2 
0.0 


STATUS  OF 
ACTUAL  VOLUME 

CORRECT 
CORRECT 
CORRECT 
OEFICIT 
DEFICIT 
SURPLUS 
DEFIC  IT 
SURPLUS 
DEFICIT 
SURPLUS 
SURPLUS 
SURPLUS 
SURPLUS 
SURPLUS 
CORRECT 


547955.6 


343190.7 
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PAGE   TYPE  3 

POTENTIAL   WORK  LOAC  AND  YIELDS  FOR   NEXT  PERIOD 
BOGUS  NATIONAL  FOREST 


ACRES  CF  COMMERCIAL   THINNING  DURING   NEXT  PERIOD 


1685.9 
0.0 


6191. 
8069. 
2808. 


9517. 
3149. 
2808. 


15709.2 
12904.9 
5617.4 


HUNDREDS  CF  CU.    FT.   REMOVED  3Y  THINNING 


0.0 
13626.8 
O.C 


49443.3 
51634.7 
2C270.8 


43527.3 
14201.9 
0.0 


0.0 
0.0 
0.0 


92970.6 
79463. 5 
20270.8 


M    BD.    FT.    REMOVED    BY  THINNING 


0.0 
0.0 
0.0 


3217. 
3217. 


TYPE  4 

14596.6 
0.0 
15173.1 

29769. 7 


0.0 
0.0 
0.0 


PAGE   TYPE  3 


M  8D.   FT.   TO   BE   SALVAGED   IN   NEXT  PERIOD 


0.0 
O.C 
0.0 


0.0 

o.o 

0.0 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


M   BD.    FT.    TO  BE   HARVESTED  BY   REGENERATION  CUTS 


O.C 
0.0 
0.0 


0.0 
242.7 
0.0 


86592.7 
56487.4 
68353.2 


52597.5 
27793.8 
5489  .9 


139190.2 
84523.9 
73843.  1 


HUNDREDS   OF   CU.    FT.    FROM   REGENERATION  CUTS 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 
24504. 3 
0.0 


41976.1 
30333.2 
0.0 


41976. 1 
54837. 5 
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PAGE   TYPE  3 


M   BO.   FT.   TO  BE   HARVESTED   BY   FINAL  REMOVAL   OF  OVERWOOD 


0.0 
O.C 

o.c 


6358.7 
2098.  1 
24127. 1 


1079.5 
1 1837.9 
23502.3 


7438. 
13936. 
47629. 


BLCCK 


HUNDREDS   OF   CU.   FT.    FROM   FINAL  CUTS 


1 

2 
3 

TOTAL 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


ACRES  OF   NONCOMMERCIAL   THINNING   DURING  NEXT  PERICO 


BLCCK 

1 

2 
3 

TOTAL 


8.9 
515.6 
4266.4 


12493.6 
4764.3 
5617.4 


3117.9 
6512.4 
8426. 1 


3180. 1 
191.2 
2808.7 


106.7 
0.0 


18907. 1 
11983.5 
21118.7 


PAGE   TYPE  3 

POTENTIAL  WORK   LOAD  ANO   YIELDS  FOR   NEXT  PERICO 
BOGUS  NATIONAL  FCREST 


ACRES   OF   COMMERCIAL    THINNING   DURING    NEXT  PERICO 


0.0 
0.0 


4724. 
1404. 


HUNDREDS   OF  CU.   FT.    REMOVED  BY  THINNING 


O.C 
0.0 
0.0 


0.0 
49134.4 
0.0 


0.0 
0.0 
5666. 4 


49134. 
5666. 


M   BO.    FT.    REMOVED   BY  THINNING 


BLCCK 

1 

2 
3 

TOTAL 


0.0 
0.0 
0.0 


0.0 
9378.7 
0.0 


0.0 
0.0 
7959.5 


9378.7 
7959.5 
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PAGE   TYPF  3 


M  BD.   FT.    TO  BE   SALVAGEC    IN  NEXT  PERIOD 


0.0  0.0  0.0  0.0  0.0 

0.0  0.0  0.0  0.0  0.0 

0.0  O.C  0.0  0.0  0.0 


H  BD.   FT.   TO  BE  H Aft VESTED   BY  REGENERATION  CUTS 


20779.7 
17296.3 
0.0 


20779.7 
17296.3 


HUNDREDS  OF  CU.   FT.   FROM  REGENERATION  CUTS 


1  0.0  0.0  0.0  0.0  0.0 

2  0.0  0.0  0.0  0.0  0.0 

3  0.0  O.C  0.0  0.0  0.0 


PAGE  TYPE  3 


M   BO.   FT.   TO  BE   HARVESTED   BY   FINAL  REMOVAL   OF  OVERHOOD 


0.0 
0.0 


0.0 
0.0 


0.0 
0.0 
0.0 


HUNDREDS  OF  CU.   FT.   FROM   FINAL  CUTS 


0.0 
0.0 
O.C 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


ACRES   OF   NONCOMMERCIAL   THINNING  OUftING  NEXT  PERIOD 


0.0 
0.0 


26.7 
1574.8 
0.0 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


0.0 
0.0 
0.0 


26.7 
1574. 8 
0.0 
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PAGE   TYPE  4 


RECORD   OF   MANAGEMENT   DECISIONS    AND   CURRENT  CCNCITIONS 
BOGUS   NATIONAL  FOREST 


NUMBER  OF   BLOCKS  -  3 
MINIMUM  AGE   FOR  GROWING   STOCK  -  30 
MINIMUM   M    BC.    FT.    FOR    GROWING    STOCK   -  1.5 
LENGTH   OF    PLANNING    PERIOO,    YEARS  -  10. 


NUMBER    OF   COMPARTMENTS    -  269 

LENGTH  OF  CUTTING   CYCLE,   YEARS   -  20. 

LENGTH  CF   PREDICTION  PERIOO,   YEARS  - 


LOWEST   SITE   CLASS   TO   BE  MANAGED 
LENGTH  CF   ADJUSTMENT   PERIOD,  YEARS 
M   BD.    FT.    TC   BE   LEFT   AS   SEED  SOURCE 
CU.   FT.  TC  BE  LEFT  AS   SEED  SOURCE 
YEARS  TO   LEAVE   OVERWOOC   AS   SEED  SOURCE 
EXPECTED   DELAY    IN   REGENERATION,  YEARS 
BC.    FT.   GROWTH  OF   SHELTERWOOD,  PERCENT 
CU.    FT.   GROWTH  OF   SHELTERWOOO,  PERCENT 
STOCKING   LEVEL   FOR    INITIAL  THINNING 
STOCKING  LEVEL,    SUBSEOUENT  THINNINGS 
MINIMUM  COMMERCIAL   CUT,   M   BD.  FT. 
MINIMUM   COMMERCIAL    CUT,    CU.  FT. 


PINE 

GROUP 

40.0 
30.0 
4.0 
8.0 
20.0 
10.  0 
3.00 
2.50 
100.0 
100.0 
1.5 
4.0 


SPRUCE 
GROUP 

50.0 

30.0 
0.0 
0.0 
0.0 

10.0 
2.50 
2.00 
100.0 

90.0 
1.5 
4.0 


CUBIC   FEET    IN  HUNCREOS 


PAGE   TYPE  5 


COVER  TYPE 


AREAS  OF   TYPES   IN  WORKING  CIRCLE 
BOGUS  NATIONAL  FOREST 


ACRES 


COVER  TYPE 


ACRES 


1  PIN  0-30 

2  PIN  31-50 

3  PIN  51-100 

4  PIN  101-40 

5  PIN  14  1* 

6  SPR  0-30 

7  SPR  31-50 

8  SPR  51-100 

9  SPR  101-40 
10  SPR  141  + 


22057.9 
26471.2 
52957.2 
68467.0 
18622.4 
1558.9 
1610.4 
4764. 3 
8438.6 
0.0 


11  OEFOREST-B 

12  DEFOREST-G 

13  RECREATION 

14  BARREN 

15  BRUSHL  AND 

16  RANGE-HERB 

17  PRIVATE 
18 

19 
20 

TOTAL  AREA 


8152.2 
17509.3 
391  1.  1 
581.6 
1390.2 
8198.8 
47799.4 
0.0 
0.0 
0.0 
292490.4 


PINE  GROUP  - 


SPRUCE   GROUP  - 


DEFORESTED  ACRES 
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TOTAL   AREAS  OF   BLOCKS   AND   hCRK I NG  CIRCLE 
BOGUS   NATIONAL  FCREST 


6  LCC  K 
NC. 


TOTAL 
ACRES 


»,,,.<.  PLANTADLE  ACRES  FOREST  SC1L  »*«»*(•«« 
BRUSHY  GRASSY  TOTAL 


FOREST  AND  REGENERATING 
PINE  SPRUCE 


103754.5 
104 194 . 5 
8454  1.4 


5223.4 
84.5 
2844.3 


1981.2 
5226.5 
10301.6 


7204.5 
5311.0 
13145.9 


68500.4 
69162.8 
50912.5 


4739.0 
8811.2 
2822.0 


DESIGNATIONS    OF  TYPES 

PIN  0-30  *  11  DEFOREST-8 

PIN   31-50  *  12  DEFOREST-G 

PIN   51-100  «  13  RECREATION 

PIN   101-40  *  14  BARREN 

PIN   141*  »  15  BRUSHLAND 

SPR   0-30  '  16  RANGE-HERB 

SPR  31-50  *  17  PRIVATE 

SPR  51-100  »  18 

SPR  101-40  *  19 

SPR  141+  *  20 


PAGE    TYPE  7 


VOLUMES   OF   BLOCKS   A  NC   WORKING  CIRCLE 
BOGUS   NATIONAL  FCREST 


TCTAL   PINE   WORKING  GROUP 
BLCCK        TCTAL  MERCH.  M 

NC.        CU.    FT.  CU.    FT.  BO.  FT. 


TOTAL   SPRUCE   WORK  I NG  GROUP 
TOTAL  HERCH .  M 

CU.    FT.  CU.   FT.  BD.  FT. 


TOTAL   VOLUME  OF  BLOCK 
TOTAL  MERCH.  M 

CU.    FT.  CU.    FT.  BD.  FT. 


1476578.4  112492C.5  310747.4  145796.1  132422.6 

1334102.0  1019114.2  224349.6  362130.0  292676.9 

840874.4  647542.5  206826.7  1313C0.2  122856.1 


26683.6  1622374.5  1257343.1  337431.1 

66383.8  1696232.1  1311791.2  290733.4 

28477.4  972174.6  770398.6  235304.0 


SUMS  3651554.8 


4290781.1  3339532.8 


CUBIC   FEET    IN  HUNDREDS,    BOARD  FEET    IN  THOUSANOS 
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PAGE   TYPE  8 


TOTAL   AREAS   AND   VOLUMES  OF   BLOCKS   AND  WORKING  CIRCLE 
BOGUS  NATIONAL  FCREST 


TOTAL 
ACRES 


MERCH. 
CU.  FT 


ACRES 
LOW  SITE 


NUMBER 
OF  RECORDS 


3117.9 
14350.3 
12706.9 
30415.  1 
7910.2 
1545.6 
35.6 
0.0 


5223.4 
1981.2 


0.0 
13C964.8 
264375.0 
849610.6 
231628.1 
0.0 
937.8 
0.0 
144858.3 
0.0 
0.0 
0.0 


CO 
17865.4 
152749.9 
741686.6 
212618.6 
CO 
523.  1 
CO 
131899.5 
CO 
CO 
0.0 


0.0 
0.0 
3348.2 
232377.5 
75021.8 
0.0 
23.3 
0.0 


0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


8753.9 
6503.5 
27611.1 
19795.2 
6499.  1 
CO 
1574.8 
4764.3 
2472.  1 
0.0 
84.5 
5226.5 


0.0 
111185.6 
527984.0 
497658.9 
197273.5 
CO 
19122.2 
192187.4 
15C820.5 
CO 
0.0 
CO 


CO 
43240.6 
362229. 1 
41983C4 
173814.  1 
0.0 
0.0 
15C271.3 
1424C5. 7 
CO 
CO 
CO 


51120. 
120866. 
52362. 


21167.2 
45216.5 


0.0 
0.0 
0.0 
0.0 
0.0 
CO 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


10186.  1 
5617.4 
12639.2 
18256.6 
4213.1 
13.3 

o.o 

0.0 
2808.7 

0.0 
2844.3 
10301.6 


93B14. 
15  1022. 
493855. 
IC2182. 


CO 
18731.1 
108683.0 
442607.6 
77520.8 
0.0 
CO 
0.0 
122856. 1 
CO 
0.0 


0.0 
0.0 

10775.6 
165230.7 

30820.4 
0.0 
0.0 
0.0 

28477.4 
0.0 
0.0 
0.0 


0.0 
0.0 
0.0 
1404.4 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


4290781. 1 


3339532.8 


CUBIC    FEET    IN   HUNCREDS,    BOARD    FEET    IN  THOUSANDS 
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DISTRIBUTION   OF  AREA   BY   SITE   INDEX  CLASS 
BOGUS  NATIONAL  FCREST 


SITE  INDEX 


ACRES  OF  PINE 
WORKING  GROUP 


ACRES  OF  SPRUCE 
WORKING  GRCUP 


DEFORESTED 
ACRES 


80 
90 
100 


CO 
0.0 
4921.3 
20563.8 
30170.6 
12844.7 
0.0 
CO 


1590. 
1109. 


0.0 
0.0 
0.0 
3237.8 
2207.8 
1759.0 
0.0 
0.0 
0.0 
0.0 


10 

20 
30 

40 


0.0 
0.0 
9653. 1 
25876.4 
25279.5 
8353.8 
CO 
CO 


1574.8 
3242.9 
3993.6 


0.0 
0.0 
0.0 
0.0 

3291.8 
222.2 

1797.1 
0.0 
0.0 
CO 


50 
60 
70 


1404. 
12857. 
1 1234. 
15505. 

9910. 


0.0 
0.0 
2822.0 
0.0 
0.0 
0.0 


0.0 
0.0 
0.0 
0.0 
5706.3 
4453.  1 
2986.5 
0.0 
0.0 


-  38  - 


PAGE    TYPE  10 


YIELDS   PER   ACRE  OF   MAN AGE  0 »   EVEN-AGED   STANDS  BASED  CN   PREDETERMINED   STANDARDS  FOR 
SITE    INOEX     70.,     20. -YEAR  CUTTING  CYCLE,   OENSITY   LEVEL  100. 

WORKING   GRCUP   -  PINE 


ENTIRE    STAND   BEFORE    ANO   AFTER  THINNING 


PERIOOIC    CUT    AND  MORTALITY 


STANC 
AGE 
(YEARS) 


BASAL 
AREA 
SO.  FT. 


AVERAGE  AVERAGE 
O.B.H.  HEIGHT 


TOTAL  MERCHANT- 
VOLUME     ABLE  VOLLME 
CU.   FT.        CU.  FT. 


SAWT1MBER 

VOLUME 
M   BD.  FT. 


BASAL 
TREES  AREA 
NO.      SO.  FT. 


TOTAL 
VOLUME 


MERCHANT- 
ABLE VOLUME 
CU.  FT. 


SAHT IMBER 

VOLUME 
M  BO.  FT. 


1C00 
373 


5.6 
6.9 


1245 
750 


312. 
312. 


o.coo 

0.000 


50. 
50. 


365 
239 


7.8 
8.5 


2203 
1748 


1789. 
1520. 


1.400 
1  .400 


70. 
80. 
90. 


235 
154 


154 
104 


133 
100 


133 
ICO 


10.2 
10.9 


12.6 
13.3 


3229 
2468 


2998. 
2308. 


4007  3781. 
3055  2891. 


8.250 
7.270 


15. 350 
12.210 


110. 
110. 


104 
73 


114 

129 


15.  1 
15.8 


4432 
3437 


4221. 
3280. 


20.240 
16. 130 


130. 
130. 


140. 
150. 


125 

ioo 


in 

121 


17.7 
18.4 


19.4  87 
20.3  89 


4671 
3759 


4309 
4844 


4479. 
3609. 


4146. 
4668. 


24.240 
19.900 


23. 800 
27. 720 


PAGE   TYPE  11 

GROWING  STOCK  OF   MANAGED,   REGULATED,   EVEN-AGED  STANDS 
SITE   INDEX     70.,      2C.-YEAR  CUTTING  CYCLE 
OENSITY  LEVEL-  100.   AND  100. 

WORKING  CRCUP  -  PINE 


VOLUMES   PRESENT   PER   ACRE   AT   END  OF   EACH  YEAR 

MERCHANTABLE  CUBIC  FEET 
YEAR 


0.0              0.0  O.C              0.0  0.0  0.0  0.0  0.0  0.0  0.0 

0.0              0.0  0.0              0.0  0.0  0.0  0.0  0.0  0.0  0.0 

0.0              0.0  0.0              0.0  0.0  0.0  0.0  0.0  0.0  0.0 

312.0  378.1  444.2  510.3  576.4  642.5  708.6  774.7  840.8  906.9 

973.0  1054.6  U36.2  1217.8  1299.4  1381.0  1462.6  1544.2  1625.8  1707.4 

1520.0  1588.3  1656.6  1724.9  1793.2  1861.5  1929.8  1998.1  2066.4  2134.7 

2203.0  2282.5  2362.0  2441.5  2521.0  2600.5  2680.0  2759.5  2839.0  2918.5 

2308.0  2381.0  2454.0  2527.0  2600.0  2673.0  2746.0  2819.0  2892.0  2965.0 

3038.0  3112.3  3186.6  3260.9  3335.2  3409.5  3483.8  3558.1  3632.4  3706.7 

2891.0  2954.9  3018.8  3082.7  3146.6  3210.5  3274.4  3338.3  3402.2  3466.1 

3530.0  3599.1  3668.2  3737.3  3806.4  3875.5  3944.6  4013.7  4082.8  4151.9 

3280.0  3340.3  3400.6  3460.9  3521.2  3581.5  3641.8  3702.1  3762.4  3822.7 

3883.0  3942.6  4002.2  4061.8  4121.4  4181.0  4240.6  4300.2  4359.8  4419.4 

3609.0  3662.7  3716.4  3770.1  3823.8  3877.5  3931.2  3984.9  4038.6  4092.3 

4146.0  4198.2  4250.4  4302.6  4354.8  4407.0  4459.2  4511.4  4563.6  4615.8 
4668.0 


THOUSANDS   OF   BOARD  FEET 


0.000 
0.000 
0.000 
0.000 
0.000 
1.400 
4.  170 
7.270 
12.450 
12.210 
15.950 
16. 130 
20.130 
19.900 
23.800 
27.720 


C.000 
0.000 
O.CCO 
0.000 
.  140 
1.677 
4.578 
7.788 
12.740 
12.584 
16.379 
16.530 
20.541 
20.290 
24. 192 


O.COC 
0.000 
0.000 
0.000 
.280 
1.954 
4.986 
8.306 
13.030 
12.958 
16.808 
16.930 
20.952 
20.680 
24.584 


o.ooo 

0.000 
0.000 
0.000 
.420 
2.231 
5.394 
8.824 
13.320 
13.332 
17.237 
17.330 
21.363 
21.070 
24.976 


0.000 
0.000 
0.000 
0.000 
.560 
2.508 
5.802 
9.342 
13.610 
13.706 
17.666 
17. 730 
21.774 
21.460 
25.368 


0.000 
0.000 
0.000 
0.000 
.700 
2.785 
6.210 
9.860 
13.900 
14.080 
18.095 
18.130 
22. 185 
21.850 
25.760 


0.000 
0.000 
0.000 
0.000 
.840 
3.062 
6.618 
10.378 
14. 190 
14.454 
18.524 
18.530 
22.596 
22.240 
26.  152 


0.000 
0.000 
0.000 

o.ooo 

.980 
3.339 
7.026 
10.896 
14.480 
14.828 
18.953 
18.930 
23.007 
22.630 
26.544 


0.000 
0.000 
0.000 
O.COO 
1.120 
3.616 
7.434 
11.414 
14.770 
15.202 
19.382 
19.330 
23.418 
23.020 
26.936 


.000 
.000 
,000 
.000 
.260 
,893 
.842 


1  1.932 
15.060 
15.576 
19.811 
19.730 
23.829 
23.410 
27.328 
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PAGE   TYPE  12 


FOR   SITE    INDEX  CLASS- 


DISTRIBUTION  OF   AREA   ANO   GROWING   STOCK  GOALS 
70.,    ROTATION-    130.,   ANO        35532.6  ACRES   OF   THIS   SITE  CLASS   AND  GROUP 
FORKING  GROUP  -  PINE 


AGE  CLASS 


ACRES  IN 
CLASS 


HLNDREOS  OF 
CU.  FT. 


1-  10 
1  1-  20 
21-  30 
31-  40 
41-  50 
51-  60 
61-  70 
71-  80 
81-  90 
91-100 
101-110 
111-120 
121-130 
131-140 


2733.3 
2733.3 
2733.3 
2733.3 
2733.3 
2733.3 
2733.3 
2733.3 
2733.3 
2733.3 
2733.3 
2733.3 
2733.3 
0.0 


30339.4 
0.0 
852.8 
18464.7 
38126.5 
51813.4 
70279.5 
74058.2 
91774.0 
88625.2 
104300.6 
98716.5 
24872.9 
0.0 


16017.0 
0.0 
0.0 
0.0 
0.0 
7990. 7 
17263.4 
27658. 1 
37530.7 
38995.7 
48921.6 
50101.0 
12737.  1 
0.0 


PAGE   TYPE  13 

GROWING   STOCK  GOALS   FOR  WORKING  CIRCLE 
WORKING  GROUP  -  PINE 
BOGUS  NATIONAL  FOREST 


SITE  CLASS 


ROTATION 
AGE 


.   FT.  TO 
FT.  LIMIT 


CU.  FT.  TO 
ROTATION  AGE 


M  BO.  FT.  ABOVE 
BO.    FT.  LIMIT 


50. 
60. 
70. 
TOTALS 


30459.6 
68066.4 
77017.4 
35532.6 
212480.4 


110. 
130. 
130. 
130. 


64476. 
122508. 
120470. 

57444. 
364898. 


255228. 

890443. 
1256453. 

692224. 
3094347. 


64029. 
284131. 
445646. 
257215. 
1051022. 


CUBIC   FEET    IN   HUNDREDS.    TOTAL   AREA   INCLUOES  ANY   LOW   SITE   ACRES    INCORRECTLY  CLASSED  AS   OPERABLE  TYPES. 
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CONVERSION   OF    AREAS    TO    STANDARO  ACRES 
WORKING  GRCUP  -  PINE 
BOGUS  NATIONAL  FCREST 


SITE 

INDEX 

CLASS 


TOTAL  YIELD 
■  PER  ACRE 
M    3D.  FT. 


ACRES 
IN  SITE 
CLASS 


RECUCTION 
FACTOR 


AREA  IN 
STANDARD 
ACRES 


EOUIVALENT  OF 
STANDARD  ACRE 
IN   SITE  ACRES 


8.5 
17.1 
26.6 
31.5 


30459.6 
68066.  4 
77017. 4 
35532.6 


.49679 
1 .00000 
1.55523 
1.84044 


15131.9 
68066.'! 
119779.8 
65395.8 


2. 01294 
1.00000 
.64299 
.54335 


268374.0 


SITE 

INDEX 

CLASS 


TOTAL  YIELD 
PER  ACRE 
CU.  FT. 


ACRES 
IN  SITE 
CLASS 


REDUCTION 
FACTOR 


AREA  IN 
STANOARD 
ACRES 


EQUIVALENT  OF 
STANOARO  ACRE 
IN   SITE  ACRES 


22.2 
41.6 
57.5 
70.0 


30459.6 
68066.4 
77017.4 
35532.6 


.53329 
1.00000 
1.38308 
1.68229 


16243.7 
68066.4 
106521.3 
59776. 1 


1.87517 
1.00000 
.72302 
.59443 


250607.5 


PAGE    TYPE  10 


YIELDS   PER   ACRE  OF   MANAGED,    EVEN-AGED   STANDS   BASED  CN   PREDETERMINED  STANDARDS  FOR 
SITE   INDEX     70.,      20. -YEAR  CUTTING  CYCLE,   DENSITY  LEVEL  90. 

WORKING   GROUP  -  SPRUCE 


ENTIRE   STAND   BEFORE   AND  AFTER  THINNING 


PERIODIC  CUT   AND  MORTALITY 


STANC 
AGE 
(YEARS) 


TREES 
NO 


BASAL 
AREA 
SO.  FT. 


AVERAGE  AVERAGE 
D.B.H.  HEIGHT 
IN.  FT. 


TOTAL  MERCHANT- 
VOLUME  ABLE  VOLUME 
CU.   FT.        CU.  FT. 


SAWT IMBER 

VOLUME 
M  BD.  FT. 


BASAL 
TREES  AREA 
NO.      SO.  FT. 


TOTAL 
VOLUME 
CU.  FT. 


MERCHANT- 
ABLE VOLUME 


SAWTIMBER 

VOLUME 
M   BD.  FT. 


1550 
472 


3.6 
4.4 


1528 
7C4 


0.000 
O.COO 


465 
250 


6.6 
7.6 


2235 
1598 


1492. 
1309. 


0.000 

o.ooo 


247 
156 


100 
122 


9.5 
10.3 


3265 
2428 


3031. 
2284. 


5.760 
5.  760 


156 
156 


109 
127 


12.2 
13.0 


3982 
2845 


3772. 
2702. 


14. 750 
11.260 


110. 
110. 


106 
122 


15.  1 
15.8 


4238 
3129 


4045. 
2991. 


18.800 
14.240 


130. 
130. 


103 
117 


18.0 
18.5 


4348 
3345 


4172. 
3211. 


20.900 
16. 210 


140. 
150. 


102 
113 


19.7 
20.8 


3895 
4445 


3746. 
4280. 


19. 160 

22.060 
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PAGE    TYPE  11 


GROWING   STOCK   OF   MANAGED  ,   REGULATED,   EVEN-AGED  STANDS 
SITE    INDEX     70.,     20. -YEAR  CUTTING  CYCLE 
DENSITY  LEVEL-   100.   AND  90. 

WORKING  GRCUP  -  SPRUCE 

VOLUMES  PRESENT   PER  ACRE   AT   END  OF   EACH  YEAR 

MERCHANTABLE  CUBIC  FEET 
YEAR 


0.0  0.0  0.0  0.0               0.0  0.0  0.0  0.0               0.0  0.0 

0.0  0.0  0.0  0.0              0.0  0.0  0.0  0.0              0.0  0.0 

0.0  0.0  O.C  0.0              0.0  0.0  0.0  0.0              0.0  o.c 

0.0  55.2  1  10. <i  165.6           220.8  276.0  331.2  386.4  441.6  496.8 

552.0  646.0  740. C  834.0           928.0  1022.0  1116.0  1210.0  1304.0  1398.0 

1309.0  1391.6  1474.2  1556.8  1639.4  1722.0  1804.6  1887.2  1969.8  2052.4 

2135.0  2224.6  2314.2  2403.8  2493.4  2583.0  2672.6  2762.2  2851.8  2941.4 

2284.0  2356.9  2429.8  2502.7  2575.6  2648.5  2721.4  2794.3  2867.2  2940.1 

3013.0  3088.9  3164.8  3240.7  3316.6  3392.5  3468.4  3544.3  3620.2  3696.1 

2702.0  2768.4  2834.8  2901.2  2967.6  3034.0  3100.4  3166.8  3233.2  3299.6 

3366.0  3433.9  3501.8  3569.7  3637.6  3705.5  3773.4  3841.3  3909.2  3977.1 

2991.0  3C47.7  3104.4  3161.1  3217.8  3274.5  3331.2  3387.9  3444.6  3501.3 

3558.0  3619.4  3680.8  3742.2  3803.6  3865.0  3926.4  3987.8  4049.2  4110.6 

3211.0  3264.5  3318.0  3371.5  3425.0  3478.5  3532.0  3585.5  3639. C  3692.5 

3746.0  3799.4  3852.8  3906.2  3959.6  4013.0  4066.4  4119.8  4173.2  4226.6 
4280.0 


THOUSANOS  OF   BOARD  FEET 

0.000  0.000  0.000  0.000  0.000  0.000  0.000  0.000  O.COO  0.000 

0.000  C.COO  0.000  0.000  0.000  0.000  0.000  0.000  O.COO  0.000 

0.000  O.COO  0.000  O.COO  0.000  0.000  0.000  0.000  0.000  0.000 

0.000  O.COO  O.COO  0.000  0.000  0.000  0.000  0.000  O.COO  0.000 

O.OCO  O.CCO  O.COO  C.000  0.000  0.000  0.000  0.000  O.COO  0.000 

0.000  .215  .430  .645  .860  1.075  1.290  1.505  1.720  1.935 

2.150  2.511  2.872  3.233  3.594  3.955  4.316  4.677  5.038  5.399 

5.760  6.217  6.674  7.131  7.588  8.045  8.502  8.959  9.416  9.873 

10.330  1C.772  11.214  U.656  12.098  12.540  12.982  13.424  13.866  14.308 

11.260  11.631  12.002  12.373  12.744  13.115  13.486  13.857  14.228  14.599 

14.970  15.353  15.736  16.119  16.502  16.885  17.268  17.651  18.034  18.417 

14.240  14.561  14.882  15.203  15.524  15.845  16.166  16.487  16.808  17.129 

17.450  17.795  18.140  18.485  18.830  19.175  19.520  19.865  20.210  20.555 

16.210  16.505  16.800  17.095  17.390  17.685  17.980  18.275  18.570  18.865 

19.160  19.450  19.740  20.030  20.320  20.610  20.900  21.190  21.480  21.770 
22.060 


PAGE   TYPE  12 

DISTRIBUTION  OF   AREA   AND  GROWING   STOCK  GOALS 

FOR  SITE   INDEX  CLASS-     70.,   ROTATION-  110.,  AND       10284.5  ACRES  OF  THIS  SITE  CLASS  AND  GROUP 

WORKING  GRCUP  -  SPRUCE 

ACRES   IN  HUNDREDS  OF 

AGE  CLASS                           CLASS  CU.   FT.  M  BO.  FT. 

0  935.0 

1-  10                               935.0  0.0  0.0 

11-  20                               935.0  0.0  0.0 

21-  30                               935.0  0.0  0.0 

31-  40                               935.0  2838.5  0.0 

41-   50                                  935.0  9823.5  0.0 

51-   60                                  935.0  16486.0  683.4 

61-   70                                  935.0  23870.2  3866.5 

71-   80                                  935.0  25103.0  7735.3 

81-   90                                  935.0  31072.6  11604.6 

91-100                                  935.0  28676.8  12435.3 

101-110                                      0.0  0.0  0.0 

111-120                                      0.0  0.0  0.0 


AGE  CLASS   ZERO  REPRESENTS  CLEARCUT   ACRES   NOT  YET  REFORESTED   BECAUSE   OF   DELAY   OF      10.  YEARS 
EXPECTED   AFTER   SCHECULEO  REGENERATION  CUTTING. 
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PAGE   TYPE  13 


GROWING   STOCK  GOALS   TCP.   WORKING  CIRCLE 
WORKING  GRCLP  -  SPRUCE 
BOGUS  NATIONAL  FCREST 


SITE  CLASS 


ROTATION 
AGE 


CU.   FT.  TC 
BD.   FT.  LICIT 


CU.    FT.  TO 

ROTATION  AGE 


P  BD.  FT.  ABOVE 
BD.   FT.  LIMIT 


50. 
60. 


2429.3 
5205.6 
10284.5 
18128.9 


90. 
1  1C. 
110. 


7269. 
11706. 
21627. 
42602. 


11881. 

55014. 
137871. 
204765 . 


642. 
1 1468. 
36325. 
48435. 


CUBIC    FEET    IN   HUNORFDS.    TOTAL    AREA    INCLUDES   ANY   LOW    SITE    ACRES    INCORRECTLY   CLASSED    AS    OPERAKLC  TYPES. 


PAGE   TYPE  14 

CONVERSION  OF   AREAS   TC   STANDARD  ACRES 
WORKING  GROL'P  -  SPRUCE 
BOGUS  NATIONAL  FOREST 


SITE 

INDEX 

CLASS 


TOTAL  YIELD 
PER  ACRE 
M    60.  FT. 


ACRES 
IN  SITE 
CLASS 


REDUCTION 
FACTOR 


AREA  IN 
STANDARD 
ACRES 


EQUIVALENT  OF 
STANDARD  ACRE 
IN   SITE  ACRES 


5.1 
14.4 

22.3 


2429.3 
5205.6 
10284. 5 


.35090 
l.OCOOO 
1.54577 


852.4 
5205.6 
15897.4 


2.84980 
1.00000 
.64693 


18128.9 


21955.5 


SITE 

INDEX 

CLASS 


TOTAL  YIELD 
PER  ACRE 
CU.  FT. 


ACRES 
IN  SITE 
CLASS 


REOUCTION 
FACTOR 


AREA  IN 
STANDARO 
ACRES 


EOUIVALENT  OF 
STANDARO  ACRE 
IN   SITE  ACRES 


50. 


60. 


7C. 
TOTALS 


23.4 
45.3 
58.6 


2429.3 
52C5.6 
102e4.5 

1812e.9 


.51566 
l.OCOOO 
1.29290 


1252.7 
5205.6 
13296.8 

19755.  1 


1.93926 
l.OCOOO 
.77346 
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APPENDIX  3 


Alternative  Outputs 


Source  programs  for  MAPS  and  AREA1  are  listed 
below.  Each  program  is  followed  by  the  type  5 
pages  produced.  Subroutine  MAPS  produces  two 
type  5  pages  for  each  compartment  if  maps  are 


desired,  and  a  single  type  5  page  per  compartment 
if  map  output  is  suppressed.  Type  6  pages  produced 
by  MAPS  and  AREA1  are  not  reproduced  because 
they  do  not  differ  in  format  from  the  page  type  6 
of  AREA2  in  Appendix  2. 


SUBROUTINE  MAPS 

C 

C   TO  COMPUTE   AREAS   FROM   TYPE   AND   SUBCOMPARTMENT  MAPS. 
C 

COMMON  ABFAGI 3, 15) , ACBAR ( 5) , ACSI ( 3, 5, 10) , ACSP ( 3 ,5) , ALLCF ( 3, 10 )  , AMC 
1 AG ( 3 1 1 5 ) i ANCUTI 3, 10),ARBK(5),AREA(3,10),BARSI(5,10),BFAGE(3,15),BF 
2TH( 5f 12) ,  BFMRCH i CF AGE (3,15),CFBF(3,10),CMTH(5,12)  ,C0MBF(3) ,C0MCU,C 
3UTA(5,12),CUT3(5,12) , C YC L , 0 ATE ( 3 ) , DLE V ( 3 ) ,FINL(3) < FORET ( 3 ) ,GRB0( 3, 
45, 15) ,GRMC(3f 5, 15) ,GR0WB ( 3 ) ,GR0WC ( 3) iGVLBF ( 3) ,GVLCU( 3 ) , M I N , NBK , NCM 
5P,NSBK(5),NSI(3),NSUB,0PEN(5,12), POOR ( 3 )  ,PRET,RAGE(3,10)  , R I  NT, ROT  A 
6, SARETY ( 5, 20 ) , SARSPI 3 ) , SB  ARB, SB ARE , SBARG, SBF ( 3)  , SHELT (3 ) ,SHWD( 3) ,S 
7LAN0, SLVGI 5,  12) , SMC  I  3 ) , SMSP ( 3)  , STYP (20 )  , SUB BF ( 3 , 1 0 )  , SUBCF ( 3 , 10 ) , SU 
8MCF ( 3) ,THIN( 3) , TMBR , T MPO , T YPNM ( 20 ) , DEL  AY ( 3 ) , ACFNL ( 3 , 5 , 1 5 ) , ACRGNl 3, 
95, 15), TIME, P DC FR (5,  12 ) ,PDCFN( 5,  12 )  ,0PCU( 3 ) , FNCU ( 3 )  , CU I  NT ( 3 ) , AC  I  NT ( 
13),FMBD(3),BFINT(3),0PBD(3) , TE M , MNK , KNO , FCTR ( 2 ) , PROD ( 2 ) , K AK , VDM ( 2 1 

2,  AD J ( 3 ) , ALOWC (3) , ALWBF(3),BDMAI(3),CUMAI(3),PAIBD(3),PAICU(3),DBH0 

3,  DEN0,REST,DBHT,BAST,NWGP,HELP(5,12),BA(2) 

C 

DIMENSION   KSUB ( 36, 36) ,KTYP ( 36,36) , ARESC ( 30) , ARETYf  20)  ,CVR(20) , SUBT 
1Y ( 30) ,UNIT( 30 ) ,GRUP ( 3 ) 
READ    (5,1)    MAP, SCALE 
1    FORMAT  (I4.F6.4) 

C 

C   REPEAT   LOOP   FOR   EACH  COMPARTMENT. 

C 

DO  200  K0L=1,NCMP 

C 

C    INITIALIZE   VARIABLES   APPLICABLE   TO  A  COMPARTMENT. 

C 

DO   4  1=1,30 
ARESCI I )    =  0.0 
SUBTYI I )    =  0.0 

4  UNIT! I )    =  0.0 
DO   5  1=1,3 

5  GRUPI I )    =  0.0 
DO   6  1=1,36 
DO   6  J=l,36 
KSUB( I , J )    =  0 

6  KTYP ( I , J )    =  0 
00   7  1=1,20 
ARETYI I )    =  0.0 
CVR( I )    =  0.0 

7  CONTINUE 
ARECP   =  0.0 
BARE   =  0.0 
SARSC   =  0.0 

C 

C   READ   DATA   FOR   A  COMPARTMENT. 

C   LOGICAL   UNIT   3  HOLDS   THE    TAPE   WITH   MAPS    IF   TAPE    IS  USED. 
C 

READ    (3,11)  KBK,K0MP,NR0W 
11    FORMAT  (314) 

READ    (3,12)    ( (KTYP ( I , J ) , J=l ,36) , 1=1 ,NR0W ) 
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12    FORMAT  (1612) 

READ   (3.12)    ( IKSUBI I , J) , J=l ,36) . I=l,NRQWI 

COMPUTE    TYPE    AREAS   AND   TDIAL  AREA. 

00   20  I=l,NROW 
Dt)    19  J=l,36 

IF(KTYP(I,J)    .LE.  01   GO  TO  19 

MNK  =  KTYP { I.J) 

CVR(MNK)    =   CVRIMNK)    ♦  1.0 

19  CONTINUE 

20  CONTINUE 

DO  21  1=1,20 

ARET V ( I )   =  CVRIII  »  SCALE 

S  AR  E  T  Y  I  K  BK  , I )    =    SARETYIKBK, I )    ♦  ARtTY(I) 
ARE CP    =    ARECP   +  ARFTYII) 

21  CONTINUE 

COMPUTE   AREA  OF   EACH  WORKING  GROUP   AND  DEFORESTED  AREA. 
00  22  1=1,5 

GRUPI1)    =   GRUPill    ♦  ARETYII) 
GRUPI2I    =  GRUPI2)   ♦   AR  E  T  Y  I  I  +5  ) 
2?  CONTINUE 

HARE    =   ARFTY(U)    ♦    ARE  TY  (  12) 
ACBAR ( K8K )    =    ACBAR(KBK)    »  BARE 
ACSPIl.KBKI   =  ACSPI1.K3K)   ♦  GRUP ( 1  I 
ACSPI2.KBK)    =    ACSP12.KBK)    ♦   GRUP ( 2 ) 
ARBKIKPK)    =   ARBKIKHK)    +  ARECP 

COMPUTE    SUBCOMPARTMENT   AREAS   ANO  TYPES. 

DO   25  I=1,NWGP 

IFIGRUP(I)    .GT.   0.0)  GO  TO  30 
25  CONTINUE  l 
I F ( BAKE   .GT.   0.0)   GO   TO  30 
MNK   =  0 
GO   TO  38 

30  DO  32  l=l,NROW 
00   31   J =1,36 

IFIKSUBII.JI    .LE.  0)  GO  TO  31 

"JOS  =  KSUBII.J) 

UMIT(NOS)    =   UNITINOSI    ♦  1.0 

I F I SUBTY I NCS )    .NE.   0.0)   GO  TO  31 

SU3TYIN0S)   =  KTYP I I,J) 

31  CONTINUE 

32  CONTINUE 

DO  33  1=1,30 

ARCSC1  I  I    =   UNIT!  I  )    «  SCALE 
SARSC    =    SARSC    ♦  ARESC(I) 

33  CONTINUE 

COUNT  NUMBER  OF   SUBC OMPAR THEN T S   IN  A  BLOCK. 
COMPUTt    INDEX    FOR   PRINTING    SUBCOMP AR T MEN T  AREAS. 


7')   FORMAT    I  I  "  1  ./.'..'■  ,  1  1HPAGE    TYPE  51 

WRITE    16,80)    (FORETI I ), 1=1, 31 ,KOMP,KP.K 
BO    FORMAT    (111    , 6X , 3A8, 19X , 27HTYPE    MAP   OF    COMPARTMENT    NO . , I  4 , 25 X , 9HBL0 
1CK   NO. ,12,/) 

110   82    I  =  1,NR0H 

WRITE    (6,811    ( KTYP ( I ■ J ) , J= I , 361 
B  1    FORMAT    I  1M    ,  28X  ,  36R2  I 
«2  CONTINUE 

WRITE  16,83) 

H3   FORMAT    I  1  HO ,  3  I  X , 1 OHCOVC R    T YPF , 9X , 5H AC  RE S , 4 X , 1 H* , 7X , 1 OHC t VER    TYPE, 9 

1  X , 5HACRES,  /  I 
DO  85  1=1,10 
J   =   I    ♦  10 

WRITE    (6,841     I , TYPNMI  I  I , ARFTYI  1  I , J , T YPNM ( J )  , ARCTY IJ ) 
1)4    FORMAT    (]H   , 2HX, 12, 2X , A 10,4X,F9. 1 ,4X , 1H4.4X , I  2 , 2X, A10.4X ,F9. 1 ) 

85  CONTINUE 

WRITE    16,86)  ARECP 

86  FORMAT    ( 1H0, 70X, 10HT0TAL   AR E A , 2 X , F 9. 1  I 
WRITE   (6,87)   GRUPI 1 ) , BARE , GRUP I  2 ) 

07    FORMAT    ( 1H    , 1 5X , 2 2HACR ES    IN    WORKING   GROUP/111    ,21X,12HPINE   GROUP  -, 
1F9. 1 , 20X , 18HDEF0RFSTFD  ACRES  -,F9.1/IH   ,2lx,14H SPRUCE   GROUP  - , F  7 . 1 

2  ) 

C 

C   PRINT   SUBCOMPARTMFNT  "APS   AND  RELATED  DATA. 
C 

IFIMNK   .EIJ.   0)   GO   TO  200 
WRITE  (6,79) 

WRITE    (6,88)    (FORETI  I  I , I =1 , 3) ,KOMP,KBK 

88  FORMAT    ( 1H    , 7X , 3A8 , 1 4X , 37HSUPC OMPAR TM ENT    MAP   OF    COMPARTMENT    NO. ,14 
1  ,  20X , 9HBL0CK    NO., 12,/) 

Ull   89    I  =  1,NR0W 

WRITE    (6,811     IKSUI?  I  I  ,  J  I  ,  J  =  l  ,361 

89  CONTINUE 
WRITE  (6,901 

90  FORMAT    I  1H0, 16X , 8HSUHC0MP.  , 6X , LOHCOVFR    TYPE, 10X,5HACRCS,4X,  1H*,4X, 
1  8HSUBC0HP.  ,6X,  IOHCIIVEP  TYPE,10X,5HACRES,/> 

DO   94    1=1, MNK 

J  =   I   +  MNK 

MOL    =    SUBTY I  I  ) 

JAM    =  SUBTYIJI 

IFIMOL   .EO.   0)   GO   TO  95 

IFIJAM   .EO.   0)   GO   TO  92 

WRITE    (6,91)    I , SUBTY I  I  I , TY°NM( MOL 1  , ARE SC (  I )  , J , SUBT Y ( J )  , TYPNMI JAM ) , 

1ARCSCI J) 

91  FORMAT    (  1H    ,  1 9X  ,  I  2 , 6X , F 3 . 0 , 2X , A  1 0 , 4X , F9 .  1 , 4 X , IH» , 7 X , I  2 , 6X , F 3 . 0  ,  2X  , 
1A10.4X,  F9.  1  I 

GO   TO  94 

92  WRITE    16,931    I , SUB T Y (  I  ) , T YPNM I MOL )  , AR E SC (  I  I 

93  FORMAT    1111   ,  1  9X  ,  I  2  ,  6X  ,  F  3  .  0 ,  2  X  ,  A  1 0 ,  4X  ,  F  9.  I  ,  4  X  ,  1  H  »  ) 

94  CONTINUE 

95  WRITE    (6,96)  SARSC 

9b    FORMAT    I  1H0, 82X,  10HT0TAL    AR EA , 2X , F 9 .  1  1 
WRITE   16,87)   GRUPI 1), BARE, GRUPI2) 
GO  TO  200 


00   35  1=1,30 
MNK  =  I 

IFIARESCII)    .El.   0.0)   GO   TO  36 

35  CONTINUE 

36  NSBKIKBK)    =   NSBK(KBK)    *   MNK    -  I 

I F I ARESC I  30 )    .GT.    0.0)    NSBKIKBK)    =   NSBKIKBK)    ♦  1.0 

TEM  =  MNK 

MNK   =    TEM   »  0.5 

PRINT    TYPE   AND   SUHCOMP AR TMFNT   MAPS,    IF  DESIRED. 

38   IFIMAP   . EO.   01   GO  TO  100 

CONVERT  MAP  COOES  TO  OISPLAY  CODE  AND  RIGHT  JUSTIFY.  OCTAL  CODE 
VARY   WITH   MODEL    OF  COMPUTER. 


00  44  1=1, 
DO  44  J=l, 
IFIKTYPI I, 
IFIKTYP1 I, 
N  =  0 

40  N  =  N  +  1 
KTYP!  I , J  I 
IFIKTYPI I, 
GO   TO  43 

41  KTYPI  I.J) 
GO   TO  44 

42  KTYP I  I , J  I 
GO  TO  44 

43  KTYP (  I  , J  1 
KTYPI I, J) 

44  CONTINUE 
DO  49  1=1, 
1)0  49  J  =  l, 
IFIKSUBI  I  , 
IFIKSUBI I, 
N  =  0 

45  N  =  N  +  1 
KSUBI I, J) 
IFIKSUBI  I, 
GO   TO  48 

46  KSUBI I ,J) 
GO   TO  49 

47  KSUBI I, J) 
GO  TO  49 

48  KSUBI I , J ) 
KSUBI I , J ) 

49  CONTINUE 


.LT.  II  GO  TO  41 
.LE.   91   GO  TO  42 


=   KTYP ( I , J)    -  10 

J)    .GT.    9)    GO   TO  40 


=   KTYP I  I , J ) 


KTYP I  I , J ) 
KTYPI  I , J  ) 


J)  .LT.  1)  GO  TO  46 
J)    .LE.   91   GO   TO  47 


KSUB I  I , J) 


10 


J)    .GT.   9)   GO  TO  45 
=  55558 
=  KSUBI I , J  I 


KSUBI I , J ) 
KSUBI I , J  I 


2907 

27 
(N  » 


PRINT    PAGE    TYPE    5  -    TYPE    ANO    SUBCOMP AR TME NT   MAPS    AND  AREAS. 
PRINT   TYPE   MAP  AND  TYPE  AREAS. 
WRITE  16,79) 


C    PRINT   PAGE    TYPE    5   -    AREAS   ONLY    IF    MAPS   NOT  DESIRED. 
C 

100  WRITE  16,79) 

WRITE    16,1011    (FORETI  I  I , 1=1 ,31  ,KUMP,KBK 

101  FORMAT    I  1H0, 6X , 3A8,  L8X, 29HT YPE    AREAS    OF    COMPARTMFNT    MO. , 1 4 , 24X , 9HB 
1L0CK    NO. ,12) 

WRITE  16,831 
DO   102  1=1,10 
'  J  =   I   +  10 

WRITE    (6,84)     [ , TYPNM  I  1  ) , ARE TY (  I  )  , J  ,  TYPNMI J  I  , ARE TY ( J ) 

102  CONTINUE 

WRITE   (6,66)  ARECP 
IFIMNK    .EO.   01   GO   TO  200 

WRITE    16,103)    (FORETI  I  1  ,  I  =1 ,3) ,KOMP,KBK 

103  FORMAT    (  1  HO ,  /  /  ,  7  X  ,  3AB  ,  1 6  X  ,  3  4HSU8  C  OMP  AR  T ME  NT  S    OF    COMPARTMENT    NO. ,14 
1,21X,9HBL0CK   NO. ,12) 

WRITE  (6,90) 

DO   106   1=1, MNK 

J    =    I    +  MNK 

MOL    =    SUBTYI  I  I 

JAM   =  SUBTYIJI 

IFIMOL    .E'1.   0)   GO   TO  107 

IFIJAM    .EO.    0)    GU    TO  104 

WRITE    (6,91)     I , SUBTY I  I  ), TYPNM | MOL )  .ARESC I  I > , J, SUBTYI J) , TYPNMI JAM  I , 
I ARESC I  J  ) 
GO   TO  106 

104  WRITE    16,931    I , SUB T Y I  I  I , T YPNM I MOL I  ,  AR E SC  I  I  ) 

106  CONTINUE 

107  WRITE    (6,96)  SARSC 

WRITE    16,37)   GRUPI 1), HARE, GRUPI2) 

C 

C   WHEN    STAND   AREAS    ARE   KNOWN   AND    INVENTORY   DATA   REFER    TO   THE  STANO, 

C   VALUES   OF   ARESCII),    KBK,    ANO   KOMP    MAY    BE    EXTRACTED    AT    THIS    POINT  FOR 

C   MACHINE    ADDITION   OF    ARESC ( I )    TO   APPROPRIATE    INVENTORY  RECOROS. 

C 

200  CONTINUE 

C 

C    CtT    WORKING   CIRCLE    TOTALS    FROM    BLOCK  TOTALS. 

c 

DO  250  1=1, NBK 
DO  250  J=l,20 

250  STYPIJ)    =    STYPIJ)    t  SAREIYII.J) 
DO   251    1=1, NBK 

SDARB  =   SBARB   ♦  SARETYII.U) 
SBARG    =    SBARG   ♦    SARETYI I , 12) 
SLAND   =    SLAND    ♦    ARRKI  I  1 
NSUB   =  NSUB   ♦  NS3KI  I  ) 
DO  251  J=1,NWGP 

251  SMSPIJ)    =   SMSPIJ)    ♦  ACSPIJ.I) 
SHARE   =    SBARB    ♦  SBARG 


PRINT    PAGE    TYPE  6 
WRITE  16,2991 


SUMMARY   OF    HLOCK    ANO    WORKING   CIRCLE  AREAS. 


-  45  - 


299  FORMAT    (  1H 1 ,////, 59X ,  1 1  HP AGE    TYPE  6) 
WRITE  (6,300) 

300  FORMAT    I  1H0 ,  44X ,  40HT0TAL   AREAS  OF   BLOCKS   AND  WORKING  CIRCLE! 
WRITE    (6,301)    (FORETI I ) , 1=1 ,31 

301  FORMAT    I1H  ,53X,3A8) 
WRITE  (6,302) 

302  FORMAT    ( 1  HO, / / , 5X , 5HBL OCK , I  OX , 5HT0 TAL , 8 X , 6HNUMBER , 8 X , 4 1 H  PL  A 

1NTABLE   ACRES   FOREST   SOIL   , 1 6X , 2 3HF0RE ST   AND  REGENERATING) 

WRITE  (6,303) 

303  FORMAT    (  1H    ,  5X  ,  3HN0 . , 1 1  X , 5HACRE S , 7 X , 8HSUBC OMPT , 7X , 6HHRUSH Y , 1 2X , 6HG 
1RASSY, 12X.SHT0TAL , 16X.4HPINE , 1 3 X , 6HSPRUC E , / / I 

DO  305   1=1, NBK 

WRITE  (6, 304  1 1 , ARBKI I ) ,NSBK( 1 1 ,SARETY( 1 , 1 1 1 .SARETYI 1 , 12) ,ACRAR( I ) , 
1 ACSPI 1, I l,ACSP(2,l ) 


304   FORMAT  I1H0,5X,I2,8X,F10.1,7X,I5,6X,F10.1,8X,F10.1,7X,F10.1,11X 
10. 1 , 6X, F 10.  1  I 

105  CONTINUE 

WRITE    (6,  3061    SLANO.NSUB , SBARB, SBARG, SBARE , SMSP (  1  >  ■ SMSP (2  I 

306  FORMAT   (  1H0,  / / , 5 X , 5HT0TAL , 6 X , F 1 0 . 1 ,7X,I5,6X,F10.1,8X,F10.1,7X,F 
11,1 IX, F10. 1 , 8X, F  10.  1 1 

WRITE  (6,307) 

307  FORMAT   (  1H0, / / / , 55X , 2 1 HDE S I  GNAT  I  ON S  OF  TYPES) 
00   309  1=1,10 

J  =    I   ♦  10 

WRITE    (  6,  308)    I .TYPNMI  I  1  ,  J,  TYPNM ( Jl 
10H   FORMAT    I  1H0.43X, I  2 ,4X,A10,6X, 1H* ,6X, I  2 ,4X,A10) 

30-)  CONTINUE 
RETURN 
END 


BOGUS   NATIONAL  FOREST 


PAGE   TYPE  5 
TYPE    MAP    OF    COMPARTMENT    NO.  206 


5  5  5  5  5  5  5 
55555555555 


3   5   5   5   5  5 


5   5  5   5  5  5 


3171717  3  3 
3171717  3  3 
51717171616 


535555535555553333  31616171717 


355555555335555555555333443334 
35555555555555555555333333344 
35555555555555555553333333 
55555555544445555333353 
55555555334455553  5 
55555555534455  5 
55555555  4 


31717 
3  3  317 


COVER  TYPE 


COVER  TYPE 


PIN  0-30 

P IN  31-50 

PIN  51-100 

PIN  101-40 

PIN  141» 

SPR  0-30 

SPR  31-50 

SPR  51 

SPR  101-40 

SPR  141* 


0.0 
280.0 


DEFOREST-B 

DEFOREST-G 

RECREATION 

BARREN 

BRUSHLANO 

RANGE-HERB 

PRIVATE 


17.8 
66.7 
0.0 


ACRES    IN  WORKING  GROUP 

PINE  GROUP  -  1084.4 
SPRUCE  GROUP  -  0.0 


TOTAL  AREA 
DEFORESTED  ACRES  - 


1  168.9 
0.0 


BOGUS    NATIONAL  FOREST 


PAGE   TYPE  5 
SUBCOMPARTMENT    MAP   OF    COMPARTMENT  NO. 


1  1 

2  2   2    1    1    1  1 
555552221111 
7555552222111 
7555522222911 
755552222991  1 
7   5   5   5  2   2  2  21414   1  1 
7    5    51414    214141414    1  1 

5  51414141414141415151515 
141414141414141417171515 
141414141414141414171515 
1414141414141414  15 
14  14 


6  6  6  3  3  4 
8  6  6  6  6 
6  6  6  6  6  61010  4 
6  6  6  61010101111 
6  6  6  610101010  4 
6  6  6101010101010 
6  6101010101610 
6  610  16 


4  41213 
41212131313 


COVER  TYPE 


ACRES 


COVER  TYPE 


PIN  141* 
PIN  141* 
PIN  51-100 
PIN  51-100 
PIN  141* 
PIN  141* 
PIN  51-100 
P IN  51-100 
PIN  51-100 


151.1 
106.7 
17.8 
88.9 
111.1 
177.8 


PIN  51-100 
PIN  101-40 
PIN  101-40 
PIN  51-100 
PIN  141* 
PIN  101-40 
PIN  141* 
PIN  51-100 


13.3 
17.8 
186.7 


ACRES    IN  WORKING  GROUP 

PINE  GROUP  -  1084.4 
SPRUCE   GROUP  -  0.0 


TOTAL  AREA 
DEFORESTED   ACRES  -  0.0 
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PAGE   TYPE  5 


BOGUS   NATIONAL  FOREST 


COVER  TYPE 


TYPE    AREAS   OF   COMPARTMENT    NO.  206 
ACRES         *  COVER  TYPE 


PIN  0-30 
PIN  31-50 
PIN  51-100 
PIN  101-40 
PIN  141+ 
SPR  0-30 
SPR  31-50 
SPR  51 
SPR  101-40 
SPR   141  + 


0.0 
0.0 

280.0 
62.2 

742.2 
0.0 
0.0 
0.0 
0.0 
0.0 


DEFOREST-B 

DEFOREST-G 

RECREAT ION 

BARREN 

BR  USHL AND 

RANGE-HERB 

PRIVATE 


TOTAL  AREA 


30GUS  NATIONAL  FOREST 
SUBCOMP. 


SUBCOMPARTMENTS    OF    COMPARTMENT    NO.  206 


COVER  TYPE 

PIN  141* 

.      PIN  141* 

.      PIN  51-100 

.      PIN  51-100 

.      PIN  141+ 

PIN  141+ 

.      PIN  51-100 

.      PIN  51-100 

.     PIN  51-100 


151.1 
106.7 
17.8 
88.9 
111.1 
177.8 
22.2 
13.3 
13.3 


COVER  TYPE 

.     PIN  51-100 

PIN  101-40 

.      PIN  101-40 

PIN  51-100 

.      PIN  141+ 

.      PIN  101-40 

PIN  141+ 

.      PIN  51-100 


ACRES 
93.3 


17.8 
186.  7 


ACRES    IN  WORKING  GROUP 

PINE  GROUP  -  1084.4 
SPRUCE   GROUP  -  0.0 


DEFORESTED  ACRES  - 


TOTAL  AREA 
0.0 


SUBROUTINE  AREA1 

C 

C  TO  COMPUTE  AREAS   FOR   WORKING  CIRCLE   FROM   TOTAL   AREA   OF   EACH   TYPE  IN 

C  EACH  COMPARTMENT. 

C 

COMMON  ABFAGI 3, 1 5  I , ACB AR I  5 ) , AC S I ( 3 , 5 , 1 0  I , AC SP I  3 , 5 ) , A LLCF ( 3 , 1 0  I , AMC 
1AGI 3, 15) , ANCUTI 3 , 1 0  I , AR BK ( 5 ) , ARE A ( 3 , 1 0 ) , B ARS I ( 5 , 1 0  I , 8F AGE ( 3 , 1 5 ) , BF 
2THI 5, 121 ,BFMRCH,CFAGE (3,15),CF8FI3,10I,CMTH(5,12) .COMBF 13) ,COMCU,C 
3UTAI 5, 12) .CUT B I  5, 12 1 , CYCL , DATE  I  3 ) , DLEV I  3 ) , F I NL I  3 ) t FORET ( 3 ) ,GRBD( 3, 
45, 15I.GRMCI 3,5, 15) ,GROWB I  3) ,GROWC( 3) ,GVLBF(3) ,GVLCU I  3 ) ,MIN,NBK,NCM 
5P.NSBKI 5 I.NSI ( 3) ,N SUB, OPEN! 5, 12) ,P00R(3I , PRE  T , RAGE (3,10) .RINT.ROTA 
6,SARETYI5,20),SARSP(3),SBARB,SBARE,S8ARG,SBF13),SHELT(3),SHWDI3),S 
7LAND,SLVG(5,  12) , SMC  I  3 ) , SMSP I  3 ) , STYP ( 20 1 , SUBBF 13,101 , SUBCF ( 3 , 1 0 ) , SU 
8MCF(3I,THIN(3), TMBR , TMPO , T YPNM I  20 ) ,DELAY(3I,ACFNL(3,5,15),ACRGN(3, 
95,15),TIME,PDCFRI5,12) , POCFNI 5, 121 , OPCU ( 3 ) , FNCU ( 3 ) , CU I  NT ( 3 ) , AC  I  NT  I 
13) , FNBO I  3 ) ,BF INT  I  3 ) , OPBO ( 3)  , TEM,MNK,KNO,FCTR (2)  • PROD ( 2 )  , K AK , V  DM  I  2 ) 
2,  AD J  I  3  I , ALOWC ( 3 ) , AL WBF I  3 ) , 8  DM A  I  1 3  I ,CUMAI I  3 ) , PA I BD I  3 ) , P A I CU ( 3 1 , DBHO 
3,OENO,REST,OBHT,BAST,NWGP,HELP(5,12),BA(2) 

C 

DIMENSION    ARETYI 20  I ,GRUP{ 3 ) 

KOUNT    =  0 

DO  29  K0L=1,NCMP 

c 

C  INITIALIZE  VARIABLES   APPLICABLE   TO  A  COMPARTMENT. 
C 

ARECP   =  0.0 
BARE  =  0.0 
DO   1  1=1,3 
1  GRUPI I )    =  0.0 

C 

C  HEAD  AREA  OF   EACH  TYPE,   ONE  COMPARTMENT  AT  A  TIME. 

C 

READ    15,51    KBK , KOMP 

5  FORMAT  (214) 

READ   (5,61    ( ARETYI I ), 1=1,20) 

6  FORMAT    I  10F8. 1  I 


SUM   AREAS   OF    TYPES    TO   GET   COMPARTMENT    ANO    BLOCK  TOTALS. 
DO   15  1=1,20 

SARETY ( KBK , I )   =   S ARE T Y I KBK , I )   +   ARE  TY ( I ) 
ARECP    =    ARECP    ♦    ARETYI I  I 

15  CONTINUE 

00  16  1=1,5 
J  =  I  +  5 

GRUPI1)  =  GRUPI1)  ♦  ARETYI  I  ) 
GRUPI2I    =   GR  UP  I  2  I   ♦  ARE  TY I  J ) 

16  CONTINUE 

BARE  =   ARETYI 11 )   ♦  ARETYI 12 ) 
ACBARIKBK)    =   AC8ARIKBKI    ♦  BARE 
DO   17  I=1,NWGP 

17  ACSPII.KBK)    =    ACSPII.KBK)    +  GRUP(I) 
ARBKIKBKI    =   AR  BK I KBK )    ♦  ARECP 


C    PRINT    PAGE    TYPE    5   -    AREAS    OF    TYPES    ANO   WORKING   GROUPS    BY   COMPARTMENT • 

C   KOUNT   CONTROLS   PRINTER   TO  GET   3  COMPARTMENTS  PER   PAGE ■ 

C 

KOUNT  =  KOUNT   +  1 
IFIKOUNT   .GT.    1)   GO  TO  21 
WRITE  (6,19) 

19  FORMAT   I  1H1./.62X, 11HPAGE   TYPE  5) 
WRITE   16,20)    I FORETI I ) , 1=1, 3) , KOMP, KBK 

20  FORMAT   I 1H0, 6X , 3A8 , 1 8X , 29HT YPE  AREAS  OF   COMPARTMENT   NO . , I  4 , 24X , 9HB 
1L0CK  NO., 12) 

GO  TO  23 

21  WRITE   (6,22)    I FORETI I ), 1=1, 3) , KOMP, KBK 

22  FORMAT    I  1H0,/,7X,3A8,  18X, 29HTYPE    AREAS   OF   COMPARTMENT  N0.,I4,24X,9 
1 HBLOCK   NO. ,12) 

23  WRITE  (6,24) 

24  FORMAT    I 1H0, 31X, 10HC0VER   T YPE , 9X , 5HACR E S , 4X , 1H« , 7X , 1 OHCOVER   TYPE, 9 
1X.5HACRES,/) 

DO  26   1=1,  10 
J  =   I   +  10 

WRITE    16,25)    I , TYPNMI  I )  ,  ARETYI  I  I  ,  J.TYPNMI J)  , ARETYIJ I 

25  FORMAT   ( 1H   , 2 8X , I  2 , 2X , A  1 0 , 4 X , F 9 . 1 , 4X , 1 H* , 4 X , I  2 , 2 X , Al 0 , 4X , F9. 1 ) 

26  CONTINUE 

WRITE    16,27)  ARECP 

27  FORMAT   (  1H0, 70X, 10HTOTAL   AR E A , 2 X , F 9 . 1  I 
WRITE   (6,28)   GRUP I  1 ) ,GRUP (2 ) .BARE 

28  FORMAT    ( 1H0, 18X, 12HPINE   GROUP  - , F9. 1 , 8X , 1 4HSPRUC E  GROUP  -,F9.1,5X, 
1  18HDEFORESTE0  ACRES  -,F9.l) 

IFIKOUNT   . GE.   31   KOUNT   =  0 

29  CONTINUE 

C 

C  GET  WORKING  CIRCLE   TOTALS  FROM   BLOCK  TOTALS. 
C 

Dn  40  I=1,NBK 
00  40  J=l,20 

40  STYP(J)    =    STYP(J)    »  SARETYII.J) 
DO  4  1  I=1,NBK 

SBARB  =   SBARB  +  SARETYII.ll) 
SBARG   =    S8ARG    ♦    SARETY I  I , 12 ) 
S  L  AND  =   SL  AND  ♦   ARBKI  I  I 
DO   41  J=1,NWGP 

SMSPIJ)    =    SMSPIJ)    +  ACSPIJ.I) 

41  CONTINUE 

S3ARE    =    SBARB   *  SBARG 

C 

C    PRINT    PAGE    TYPE   6   -    SUMMARY   OF    AREAS   BY   BLOCK   AND   WORKING  CIRCLE. 

C 

WRITE  16,59) 

59  FORMAT    I 1H1,////,59X, 11HPAGE   TYPE  61 
WRITE  16,60) 

60  FORMAT    I  1H0 , 44X , 40HT0TAL    AREAS   OF    BLOCKS    AND   WORKING  CIRCLE) 
WRITE   (6,61)    I FORETI I  I , 1  =  1, 31 

61  FORMAT    I 1H   , 53X, 3A8I 
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WRITE  (6,621 

62  FORMAT    (  1H0.//.4X,  5HBLOCK,  10X.5HT0TAL,  1 4X , 44H«*«**»    PLANTABLE  ACRE 
IS  FOREST   SOIL  **»*»*»*«, I 9X , 2 3HFOR ES T   AND  REGENERATING} 

WRITE  16,63) 

63  FORMAT    (  1H    ,  4X  ,  3HNO  .  ,  1  1  X  ,  5H ACRE  S  ,  1  4X  ,  6HBR  USHY  ,  1  3  X  ,  6HGR  A  SS  V  ,  1 4X  ,  5HT 
10TAL, 19X.4HPINE, 13X.6HSPRUCE,//) 

00  65  IM.NBK 

WRITE  16,64)  I ,ARBK<  I  ) .SARETYl I , 11  I ,SARETY(  I  ,  12  I  , ACBAR (  I  I  ,ACSP(  1 , I 
1),ACSP(2,I) 

64  FORMAT  (1H0,4X,I2,8X,F10.1,10X\F10.1,9X,F10.1,9X,F10.1,13X,F10.1,9 
IX, F10. 1 ) 

65  CONTINUE 


WRITE   (6,66)    SLAND, SBARB, SBARG, SBARE , SMSP ( 1  I ,SMSP( 2 ) 

66  FORMAT  (1HO,//,4X,5HTOTAL,6X,F10.1,10X,F10.1,9X,F10.1,9X,F10.1,13X 
1,  F  1,0.  1,9X,F  10.1) 

WRITE  (6,67) 

67  FOR  MAT    (  1H0,///,55X,21HDESIGNATI0NS   OF  TYPES) 
00   69  1=1,10 

J    =    1    +  10 

WRITE    (6,68)    [ , TYPNM (  I  I , J , TYPNM I Jl 

68  FORMAT    (  1H0.43X, 12, 4X , A  10, 6X, 1H*,6X, I  2 ,4X , A10I 

69  CONTINUE 
RETURN 
ENO 


PAGE   TYPF  5 


BOGUS    NATIONAL  FOREST 


TYPE    AREAS    OF    COMPARTMENT  NO. 


COVER  TYPE 

PIN  0-30 

PIN  31-50 

PIN  51-100 

PIN  101-40 

PIN  141* 

SPR  0-30 

SPR  31-50 

SPR  51 

SPR  101-40 

SPR  141  + 


ACRES 

0.0 
342.2 
84.4 
537.8 
53.3 
0.0 
0.0 
0.0 
0.0 
0.  0 


COVER  TYPE 

D6F0REST-B 

OEFOREST-G 

RECREAT I  ON 

BARREN 

BRUSHLAND 

RANGE-HERB 

PRIVATE 


17.8 
231.1 


PINE    GROUP  - 


SPRUCE   GROUP  - 


TOTAL  AREA  1275.5 
0.0  DEFORESTED  ACRES 


BOGUS    NATIONAL  FOREST 


TYPE    AREAS   OF    COMPARTMENT  NO. 


BLOCK    NO.  1 


COVER  TYPE 

PIN  0-30 
PIN  31-50 
PIN  51-100 
PIN  101-40 
PIN   141  + 
SPR  0-30 
SPR  31-50 
SPR  51 
SPR  101-40 
SPR  141* 


0.0 
0.0 


COVER  TYPE 

DEFOREST-B 

DEFOREST-G 

RECREATION 

BARREN 

BRUSHLAND 

RANGE-HERB 

PRIVATE 


PINE  GROUP 


SPRUCE  GROUP 


TOTAL  AREA  1346.6 
0.0  DEFORESTED  ACRES 


BOGUS    NATIONAL  FOREST 


TYPE    AREAS   OF   COMPARTMENT  NO. 


COVER  TYPE 

PIN  0-30 
PIN  31-50 
PIN  51-100 
PIN  101-40 
PIN  141* 
SPR  0-30 
SPR  31-50 
SPR  51 
SPR  101-40 
SPR  141+ 


102.2 
786.7 
97.8 
0.0 
0.0 
0.0 
0.0 
8.9 
0.0 


COVER  TYPE 

DEFOREST-B 

DEFOREST-G 

RECREATION 

BARREN 

BRUSHLANO 

RANGE-HERB 

PRIVATE 


124. 
-0. 


PINE  GROUP 


SPRUCE   GROUP  - 


TOTAL  AREA  1257.8 
9  DEFORESTED  ACRES 
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APPENDIX  4 


Basic  Information  Used 


Tabulations  and  explanations  thatfollowdescribe 
the  relationships  to  be  determined  locally  to  adapt 
TEVAP  to  other  species  or  conditions.  Each  relation- 
ship appears  in  TEVAP  as  one  or  more  FORTRAN 
statements  for  each  species  or  working  group. 
Descriptions  include  explanations  of  the  21  program 
variables  and  related  FORTRAN  statements  involved. 
Tabulations  include  only  enough  entries  to  explain 
the  nature  of  the  information  needed,  and  do  not 
indicate  sample  sizes  or  desirable  ranges  of  data. 
Methods  used  to  determine  the  relationships  are 
found  in  standard  mensuration  texts  and  elsewhere 
(Myers  1966,  Myers  and  Godsey  1968). 

1 .  Stand  density  after  thinning- 
One  set  of  relationships  is  based  on  the  basal 
area  to  be  left  after  intermediate  cuts  for  various 
average  stand  diameters.  These  relationships 
control  thinning  intensity,  after  THIN(I)  and  DLEV(I) 
have  been  specified  by  the  program  user.  Initial 
data  needed  take  the  following  form: 


Average 

stand 

Basal 

Average  stand 

Basal 

d.b.h. 

after 

area 

d.b.h.  after 

area 

cutting 

per 

cutting  " 

per 

(Inches) 

acre 

(Inches) 

acre 

Sq. 

Ft. 

Sq.  Ft. 

2. 

0 

12 

.1 

6.4 

60.3 

2. 

4 

16 

.7 

6.8 

63.8 

2. 

8 

21 

.3 

7.2 

67.0 

3. 

2 

26 

.0 

7.6 

69.8 

3. 

6 

30 

.6 

8.0 

72.5 

4. 

0 

35 

.2 

8.4 

74.9 

4. 

4 

39 

.9 

8.8 

76.7 

4. 

8 

44 

.5 

9.2 

78.2 

5. 

2 

48 

.8 

9.6 

79.2 

5. 

6 

52 

.8 

10.0+ 

80.0 

6. 

0 

56 

.6 

Values  in  this  tabulation  represent  a  few  points 
on  one  of  a  family  of  curves  (Myers  1966). 
Reserve  basal  area  increases  with  average  stand 
d.b.h.  until  10.0  inches  d.b.h.  is  reached.  There- 


after, reserve  basal  area  remains  constant  for  any 
one  growing  stock  level.  In  the  tabulation,  con- 
stant basal  area  is  80.0  square  feet  per  acre, 
and  the  values  represent  growing  stock  level 
80.  Other  levels  are  named  similarly.  Thus, 
if  THIN(I)  or  DLEV(I)  is  100,  basal  area  at  any 
d.b.h.  below  10.0  inches  is  the  basal  area  for 
level  80  multiplied  by  100/80.  If  d.b.h.  is  greater 
than  10.0  inches,  retained  basal  area  is  DLEV(I). 

Several  statements  in  subroutine  CUTS  are  de- 
rived from  basal  area  values  for  level  80.  They 
are  multiplied  by  terms  including  THIN(I)  or 
DLEV(I),  redefined  as  REST,  to  provide  for  a  range 
of  possible  growing  stock  levels.  Variables  de- 
fined by  the  statements,  and  their  use,  are: 

a.  DBHP-to  find  a  d.b.h.  less  than  10.0  inches 
when  basal  area  is  known.  Three  equations  for 
DBHP  are  used  to  simplify  representation  of 
the  nonlinear  relationship  between  d.b.h.  and 
basal  area. 

b.  BREAK  and  BUST— to  compute  values  of  basal 
area  that  are  the  upper  limits  of  applicability 
of  the  first  two  equations  for  DBHP. 

c.  SQFT— to  find  basal  area  when  d.b.h.  is  known. 
Two  equations  represent  the  nonlinear  relation- 
ship for  d.b.h.  less  than  10.0  inches. 

Two  equations  used  to  compute  LEVL  in  sub- 
routine GOT  include  the  equations  for  SQFT. 
They  give  the  equivalent  growing  stock  level 
when  average  d.b.h.  and  basal  area  are  known. 

2.  Tree  heights  in  well-stocked  stands- 
Average  height  of  dominant  and  codominant 
trees,  where  height  growth  is  not  reduced  by 
high  stand  density,  is  computed  from  data  of  the 
form: 


Main  stand 
age 
(Years) 

Site  index 

class 

40 

50 

60 

70 

20 

8 

10 

13 

16 

40 

17 

22 

28 

34 

60  .  .  . 

26 

33 

41 

49 

150 

50 

62 

73 

85 
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The  relationships  are  expressed  by  statements 
for  HTSO  in  subroutine  GOAL.  If  data  from  site 
index  curves  are  used,  the  crown  classes  described 
mustbe  the  same  as  those  used  to  develop  the 
site  curves.  The  crown  classes  must  be  the  same 
as  those  used  in  the  equations  for  total  cubic 
feet,  described  below. 


3.  Tree  heights  with  variable  stand  density- 
Future  average  heights  of  dominant  and  codomi- 
nant  trees,  without  restrictions  on  stand  density, 
are  computed  as  FHT(l)  by  subroutine  GOT. 
Heights  in  10  years  are  estimated  from  present 
average  height,  stand  age,  site  index,  and  basal 
area.  Data  needed  for  regression  analysis  may 
be  obtained  from  remeasurements  of  permanent 
plots  or  from  borings  and  ring  counts  on  tem- 
porary plots. 


4.  Future  average  stand  d.b.h.— 

Diameter  in  10  years  is  estimated  from  present 
average  d.b.h.,  site  index,  and  present  basal 
area.  Future  diameters  are  computed  as  FDM(I) 
by  GOT  and  as  DBHO  by  GOAL.  Data  needed 
to  obtain  the  prediction  equations  by  regression 
analysis  are  gathered  on  temporary  orpermanent 
plots. 


5.  Increase  in  average  d.b.h.  from  thinning- 
Effect  of  thinning  from  below  on  average  stand 
d.b.h.  is  simulated  by  subroutine  CUTS.  One  set 
of  changes,  replacement  of  equations  for  DBHE 
and  PDBHE,  is  needed  to  adapt  the  routine  to 
other  species.  DBHE  and  PDBHE  represent  the 
same  item,  estimated  d.b.h.  after  thinning.  DBHE 
is  computed  directly  if  the  estimated  percentage 
of  trees  to  be  retained  is  at  least  50  percent. 
With  fewer  trees  retained,  PDBHE  is  computed 
and  its  antilogarithm  becomes  DBHE. 

Prediction  equations  are  derived,  preferably  by 
computer,  in  the  sequence  listed  below.  Additional 
discussion  and  a  slightly  different  procedure 
appear  elsewhere  (Myers  1966,  Myers  and 
Godsey  1968). 

a.  Convert  a  series  of  stand  tables  of  actual 
stands  to  1000  trees  each.  Known  values  may 


be:  (1)  the  average  d.b.h.  of  each  one-inch 
class  and  the  number  of  trees  in  the  class,  or 
(2)  a  list  of  1  000  tree  diameters. 

b.  Compute  average  d.b.h.  of  each  stand  (DBHO). 

c.  Create  a  set  of  1000  randomly  arranged  dia- 
meters for  each  stand.  Arrange  individual 
diameters  or  class  averages,  whichever  isavail- 
able  from  step  a. 

d.  Create  groups  of  trees,  based  on  percentages 
of  trees  to  be  retained  (PRET),  and  tally  the 
largest  diameter  in  each  group.  For  example, 
if  25  percent  of  the  trees  are  to  be  retained, 
divide  the  1,000  randomly  arranged  diameters 
into  250  groups  of  four  trees  each.  Tally  the 
largest  diameter  in  each  group  of  four  trees. 

e.  Repeat  step  d  for  various  percentages  of  reten- 
tion and  for  each  stand. 

f.  Compute  the  average  d.b.h.  (DBHE)  that  results 
from  each  percentage  retention  (PRET)  in  each 
stand. 

g.  Use  regression  analysis  to  obtain  equations  that 
predict  DBHE  from  DBHO  and  PRET. 

h.  Compare  predicted  and  actual  values  of  DBHE, 
using  data  from  actual  stands,  to  insure  that 
adequate  predictions  can  be  made. 


6.  Noncatastrophic  mortality- 
Reduction  in  number  of  trees  through  normal 
mortality  may  be  important  in  unthinned  stands, 
but  minor  and  erratic  in  thinned  stands.  Stands 
with  an  average  d.b.h.  of  10.0  inches  or  larger 
are  assumed  to  have  no  accountable  mortality. 

Future  stand  density  is  computed  as  FDN(I)  by 
GOT  and  as  DENO  by  GOAL.  Definitions  and 
values  of  both  variables  change  during  record 
processing.  The  first  computation,  the  equation 
that  varies  by  species,  produces  percentage  mor- 
tality in  10  years,  expressed  as  a  decimal.  The 
10-year  period  equals  the  projection  period  of 
related  equations  that  estimate  future  diameter 
and  height.  Later,  FDN(I)  or  DENO  is  redefined 
as  future  number  of  trees  and  is  computed  from 
the  original  value  of  FDN(I)  or  DENO.  This  is 
a  programing  convenience  to  avoid  additional 
memory  locations. 


7.  Total  cubic  feet  per  acre- 
Stand  volumes  in  total  cubic  feet  are  computed 
with  stand  volume  equations.  As  used  in  TEVAP, 
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cubic  volume  is  determined  from:  (1)  basal  area 
per  acre,  average  height  of  dominant  and  co- 
dominant  trees,  number  of  trees,  and  average 
stand  d.b.h.,  or  (2)  from  basal  area  and  height 
alone.  Both  sets  of  variables  have  been  sig- 
nificant in  analyses  of  actual  data. 

Values  of  five  variables  are  obtained  from  the 
same  stand  volume  equations:  TOT(I),  FVL(I), 
and  TVL(I)  in  GOT  and  TOTO  and  TOTT  in  GOAL 

8.  Conversion  of  total  cubic  feet  to  other  units- 
Volumes  are  first  computed  in  total  cubic  feet 
per  acre,  as  described  above.  They  are  then  con- 
verted to  other  units  by  subroutine  VOLS.  The 
second  column,  below,  shows  some  of  the  ratios 
used  to  obtain  equations  for  FCTR.  The  third 
column  shows  ratios  used   to  compute  PROD. 


Average  Merchantable  cubic      Board  feet 

stand  d.b.h.  feet  *  total  *  total 

(Inches)  cubic  feet  cubic  feet 


5.1  0.355 

6.0  .552 
6.9  .725 

8.3  .860  0.99 

9.1  .901  1.55 

10.3  .931  2.38 
19.0  .962  5.33 

23.4  .969  5.88 


Volume  or  weight  per  acre  of  numerous  stands 
are  determined  in  units  of  interest  and  in  total 
cubic  feet.  Then,  the  quantity  of  each  unit  per 
total  cubic  foot  is  determined.  Selection  of  appro- 
priate units  includes  choice  of  minimum  mer- 
chantable top  diameters  and  d.b.h. 


APPENDIX  5 
An  Example  of  Record  Maintenance 


Program  GROW,  listed  below,  is  an  example 
of  the  assistance  provided  by  computers  in  the 
maintenance  of  records.  Its  purpose  is  to  update 
inventory  records  if  thinning  or  other  change  has 
not  required  replacement  with  a  new  record.  New 
inventory  data  and  updated  data  can  then  be  com- 
bined for  input  to  TEVAP.  The  new  management 
guide  produced  will  be  based  on  the  most  recent 
estimates  of  forest  condition  for  all  plots  or  sub- 
compartments.  The  guide  can  be  produced  during 
the  winter,  between  growing  seasons,  before  it  is 
needed  to  plan  the  next  season's  work. 

Inputs  to  GROW  are  always  original  records, 
not  the  results  of  previous  projections.  A  9999  is 
punched  instead  of  the  year  of  record  on  inventory 
cards  with  updated  information.  Records  with  very 
large  values  for  year  will  not  be  processed  by  the 
program.  Accidental  mixture  of  original  and  updated 
records  will  not  be  perpetuated  for  use  by  TEVAP. 
This  feature  requires  that  two  sets  of  inventory 
records  be  prepared  for  each  working  circle: 

1.  A  permanent  file  of  original  data  that  is  revised 
only  by  replacement  of  records.  This  file  is  re- 
vised continuously  as  work  and  inventory  reports 
are  submitted,  and  is  the  input  file  for  GROW. 

2.  A  temporary  file  consisting  of  data  updated  by 
GROW  and  of  duplicates  of  original  data  that  are 


too  new  to  need  updating.    This  file  contains  the 
inventory  records  to  be  used  by  TEVAP. 
Use  of  two  files  increases  the  complexity  of  the 
record  system,  but  avoids  the  compounding  of  pro- 
jection errors. 

Linear  projections  are  used  in  GROW  because 
other  forms  of  the  relationships  are  unknown.  For 
example,  a  2-year  increase  in  diameter  is  assumed 
to  equal  two-tenths  of  the  increase  projected  by 
an  equation  developed  for  a  10-year  period.  Pro- 
jection periods,  the  variable  TIME  in  TEVAP,  should, 
therefore,  be  kept  short,  especially  for  fast-growing 
species. 

GROW  produces  three  kinds  of  output,  asfollows: 

1.  An  inventory  card  with  updated  data  is  punched 
for  direct  use  or  for  transfer  to  magnetic  tape. 
Alternatively,  the  logical  unit  assigned  to  the 
punch  may  be  assigned  to  a  tape  drive.  Card 
images  of  the  temporary  inventory  file  are  then 
written  directly  onto  tape. 

2.  A  copy  of  the  card  or  card  image  may  be  printed, 
if  desired.  A  nonzero  value  of  DUPL  is  read  to 
obtain  the  printed  record. 

3.  A  record  of  the  number  of  cards  processed  is 
written  after  all  other  operations  have  been  exe- 
cuted. The  total  does  not  include  any  previously 
updated  records  accidentally  mixed  with 
original  data. 
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PROGRAM  GROW 

U  IN  PUT, OUTPUT, PUNCH, TAPE  5= INPUT, TAPE  6  =  0 UT PUT, TAPE7  =  PUNCH, TAPE4  =  TAP 
2E5) 

C 

C   TO  UPCATE    INVENTORY    IF  NO  CHANGES  EXCEPT   NORMAL  GROWTH  HAVE  OCCURRED. 

C 

C   DEFINITIONS   OF  VARIABLES  NOT   ALREADY   DEFINEO   IN   PROGRAM  TEVAP. 

C  ADD  =   NUMBER  OF  YEARS   TO   PROJECT   INVENTORY  DATA. 

C  ANO  =  YEAR  AFTER   LAST  GROWING   SEASON   TO   BE  PROJECTED. 

C  DUPL   =   INOEX   TO  PRINT    (1)   OR  OMIT    (BLANK   OR   0)    NEW  DATA. 

C  N8R  =   NUMBER  OF   INVENTORY  CARDS  PROCESSEO. 

C 

01  MENS  ION   AGE  (2)  ,BAS  I  2)  .DATE  (  31  ,DBH(  21  ,DEM2),FAGI2),FDEN12),FDM(2 
l),FHT(2) , FOR  E  T ( 3 ) , HT ( 2 ) , JFAG ! 2  I , JFDEN ( 2 ) , JFDH (2 ) , JFHT ( 2 ] 
KNTR   =  0 
NBR  =  0 

C 

C  READ  VALUES   COMMON  TO  ALL  CARDS. 

C 

READ   (5,1)    I FORETI 11,1=1,31 

1  FORMAT  (3A8) 

RE  AO   (5,1)    (DATE! I  I , 1  =  1,3) 
READ   (5,2)   R1NT, DUPL, ANO, NBK 

2  FORMAT  (3F4.0.I4) 

C 

C    INITIALIZE  VARIABLES  RECOMPUTED   FOR   EACH   INVENTORY  CARD. 

C 

10  DO   11  1=1,2 
FAG (  II   =  0.0 
FDENI  I  )    =  0.0 
FCM(  I  I    =  0.0 
FHT ( II   =  0.0 
JFAGI 11=0 
JFOENI I )    =  0 
JFDM( I  )   =  0 

11  J  FHT (  I )   =  0 
SBAS  =  0.0 

C 

C   READ   INVENTORY  CAROS.   LAST  CARD   IS  BLANK   TO   STOP  PROCESSING. 

C    INVENTORY   RECORDS  ARE  ORIGINAL   OATA,   NOT   RESULTS  OF  PREVIOUS 

C   PROJECTIONS.   VARIABLE   WHEN   IS  ACTUAL   DATE,   NOT  OUMMY  ADDEO  BY  THIS 

C  PROGRAM. 

C 

RE  AO  ( 4,  151  IBK.KOMP,  ISUBtQTRlt  QTR.2,  SECT  f  TOWN,  RANG,  SITE  »S  TRY,  NT  YP» 
1WORK,OBH(1),HT(1),OEN( 1 ) , AGE ( 1 ) ,DBH(2I  , HT (2), DEN (2  I, AGE (21, ACRE, WH 
2  EN 

15   FORMAT  (I2,I4,I3,3A3.2A4,F4.0,F2.0,I3,F3.0,F4.1,F3.0,F5.0,F4.0,F4. 
11,F3.0,F5.0,F4.0,F5.1,F5.0> 


DETERMINE   IF   GROWTH   PROJECTION  CAN  BE   MADE . 

IFIIBK   .LE.   0   .OR.    IBK   .GT.   NBK)   GO  TO  140 


FCMI  I )   =   OBH(  I  ) 
FHT  (  I  )    =   HT  (  I  )  < 
51  CONTINUE 


( FDMI I )  -  DBHI III*  TEN 
(FHT (II    -   HT ( I ) 1    «  TEM 


C  CHANGE  TYPE  COCES  AS  NEEDED. 
C 

MNK  =  0 

IFINTYP   .GT.    5)   MNK  =  5 
J  =  1 

IFISTRY   .GT.   C.OI  J=2 
IF(FAG(JI  .GT. 
NT Y  P    =    1    +  MNK 

GC  TO  70 

55  IFIFAGIJI    .GT.   50.0)   GO  TO  56 
NTYP  =   2  +  MNK 

GC  TO  70 

56  IFIFAGIJ) 
NTYP   =   3   +  MNK 
GC  TO  70 


30.0)    GO   TO  55 


1C0.0)   GO   TO  57 


57  IFIFAGIJI 
NTYP  =  4 
GC   TO  70 

58  NTYP   =  5 


.GT.  140.0)  GO  TO  58 
MNK 


C   CONVERT   TO   FIXED   POINT   FOR  PUNCHING.   RETAIN   NECESSARY  DECIMALS. 


70  DO   71  1=1,2 

JFDMI  1  )   =   FDMI  I  )  * 
JFAGI  I  )   =   FAGI I )  + 
JFDENI  I )   =   FDENI  I  I 
JFHT ( I )   =   FHT I  I  I  * 
FAGI I )   =   JFAGI  I  ) 
FDENI I  )    =  JFOENI  I  I 
FHT I  I  )   =  JFHT I  I ) 
FCMI  I)   =   JFDMI I  I 
FDMI I )   =   FDMI I  )   *  C 

71  CONTINUE 
GO   TO  90 

80  DO   81  1=1,2 
FAGI I )   =  AGE  I  1 1 
FDENI  I  I   =   OENI I  ) 
FOMI I  )   =   D8H1  I  ) 
FHT I  I )    =    HTI  [  I 
JFAGI I )    =    AGE ( I ) 
JFOENI I )    =   DENI I ) 
JFDMI I  I   =   DBHI I )  * 
JFHTI  I  I   =  HT I  I  I 

81  CONTINUE 

90   JSITE  =  SITE 
JSTRY   =  STRY 
JWORK   =  WORK 
J  ACRE  =   ACRE   *  10.0 
JWHN   =  9999 


.  5 

0.5 
.  5 


C  TEST   DATE  OF   DATA   SO  PROJECTED   DATA   WILL   NOT  BE   PROJECTED  AGAIN. 


C    PUNCH   REPLACEMENT    FOR    INVENTORY   CARD,    USING    NEW  DATA. 


I F I  WHEN   ,GE.   2000.0)   GO  TO  10 

NBR  =  NBR  +  1 

ADD  =  ANO  -  WHEN 

IFIAOO  -EQ.  0.0)   GO  TO  80 

IFI0ENI1)   .EO.  0.0  .OR.  OBHIll   .EQ.  0.0)   GO  TO  80 

C 

C   COMPUTE   FUTURE  STAND  VALUES. 
C 

BAS(l)   =  0.0054542  *  OBHIll    *  DBH(l)    *  DEMI) 
BASI2  )   =   0.0054542   *  0BH12)   «  DBHI2)    *   DEN  1 2 ) 
SBAS  =   BASI 1)    ♦   BASI 2  I 
IFINTYP   .GT.   5)   GO  TO  30 
DO  20  1=1,2 

IFIOBHIII    .EQ.   0.0)   GO  TO  20 
IFI DENI II    .EQ.  0.0)  GO  TO  20 
FAGI I  I    =   AGE! I)    +  ADO 
IF(DBHII)    .GE.    10.0)   GO  TO  17 

FOENII)  =  0.00247  +  0.00124  *  OBHII)  +  0.00028 
10.C0000521  *  SBAS  *  SBAS  -  0.0000905  *  DBHII)  * 
IFIFDENIII  .LT.  0.01  FDENI I )  =  0.0 
FDENI I  I  =  DEN  I  I )  *  11.0  -  FOENII I) 
GO   TO  18 

17  FDENI I  I   =  DENI  I  ) 

18  FDMIII    =   0.88511   *   DBHII)   *   1.29735  «■  AL0G10 1  HT  (  I  )  ) 
1HII)   *  SITE  +  62.37174  /  SBAS  -  1.56975 


DBHII)  *  DBHII) 
SBAS 


15.43021  +  1.  107  *  HTI  I  ) 
02447  *   SITE  *   SBAS  *  0. 


01 


FHT I  I ) 
1SITE  - 

20  CONTINUE 
GO  TO  50 

30  DO   40  1=1,2 

IFIDBHII)    .EQ.   0.0)   GO  TO  40 
IFIOENI I  I   .EQ.  0.0)  GO  TO  40 
FAGI  I  I   =   AGE  I  I  I    +  ADD 
IFI  OBHI I )   .GE.   10.0)   GO  TO  35 
FOENII)   =  0.05285  -  0.01346  »  DBHI  I ! 
10.0000066   *  SBAS  *   SBAS  -  0.C001931 
IFIFDENIII    .LT.   0.0)    FDENI I )    =  0.0 
FDENI I  I   =  DEN  I  I )    *   11.0  -  FOENII)) 
GC   TO  36 

35  FOENI I  )   =  DEN  I  I  ) 

36  FDMII)   =  0.2631   *  0.95287  *  DBHI  I  )  < 
16662  /  SBAS 

FHT I  I )   =    14.57349   *   1  .  101  *  HTII)  - 
1SITE  -  0.04321  *  SITE  *  SBAS  *  0.01 
40  CCNTINUE 


0.08637   *  AGEIII 


0.00119   *  DB 


304.12172  / 


*  0.00226  *  OBHII)  *  DBHII) 
DBHII)    »  SBAS 


0.09654  *  AGE  I  I )  -  333.37172  / 


C  CHANGE  ORIGINAL  VALUES  TO  THOSE  EXPECTED  IN  ACO  YEARS. 
C 

50  TEM  =  ADD  /  RINT 
DO  51  1=1,2 

FDENIl)   =   DEN  I  I )   ♦   (FDENII)   -  DENI I ) )    *  TEM 


WRITE    I  7,91  I    IBK.KOMP, I  SUB , Q TR 1 , QTR2 , SEC T , TOWN , R ANG , J S I TE , J STRY , NT 
IYP, JWORK, J FOMI 1 ) , JFHTI  1) , JFDEN 11 ) , JFAGI 1  I , JF0MI2) *  JFHT I  2 ) .JFOENI 2  I 
2 , JFAG I  2 ) ,JACRE,JWHN 
91    FORMAT    112,14,  13, 3A3.2A4,  14, 12, 21 3, 14, I  3, 15, 214, 13, I  5, 14, 2 15  I 

C 

C   PRINT   RECORO  OF  NEW   INVENTORY  DATA,    IF  DESIRED. 
C 

1FIDUPL   .EQ.   0.01   GO   TO  10 
IFIKNTR   .EQ.    50)   KNTR   =  0 
I F I KNTR  .NE.  0)   GO  TO  120 
WRITE  16,110) 

HO   FORMAT    I  1H1.//.43X.39HRESULTS  OF   PROJECTION  OF   INVENTORY   CATA ) 
WRITE   (6,111)    I FORETI I  I , 1  =  1 , 3  I . I  DATE ( K) ,K=1 ,31 

111  FORMAT    ( 1H0,8X,3A8,40X,18HDATA   PROJECTED   TO  ,3A8I 
WRITE  (6,112) 

112  FORMAT  I lH0,50X,29H**********0VERSTORY**********,3X,29H*********UN 
1DERST0RY** 1 2 X , 5H0R I G . / 1H  , 2X , 5HBL0CK , 2 X , 4HC0MP , 2X , 4HSUBC , 
22X,4HSITE,3X,5HST0RY,3X,4HTYPE,3X,4HW0RK,4X,3HDBH,4XI2HHT,5X,5HTRE 
3ES, 5X, 3HAGE, 5X, 3HDBH, 5X,2HHT,4X, 5HTREES, 5X.3HAGE , 5 X , 4HARE A , 4X ,4HDA 
4TE  1 

WRITE   (6,113)    IBK.KOMP, I  SUB, SITE, STRY, NTYP, WORK, FDMI 1 ) , FHT I  1 ) , FDEN 
1(1), FAGI 1 ) , FOMI 2 ) .FHTI2) .FDENI2) .FAGI 2) .ACRE, WHEN 

113  FORMAT  I1H0,3X,I2,5X,I3,3X,I2,1X,F6.1,3X,F4.1,5X,I2,4X,F4.1,2X,F5. 
1 1, 1X.F6. 1,2X,F8.  1.2X.F6. 1,2X,F5. 1,2X,F6. 1 ,1X,F8. 1 ,2X,F6. 1,2X,F7. 1, 
21X.F6.0I 

KNTR  =  KNTR   +  1 
GO  TO  10 

120  WRITE  (6,121)  IBK, KOMP, IS UB, SITE, STRY, NTYP, WORK, FDM(1),FHT(1), FDEN 
1 ( 1 ) , FAG ( 1 ) ,FDM(2I , FHT ( 2 ) , FDEN ( 2  I ,FAG(2 ) , ACRE, WHEN 

121  FORMAT  ( 1H  , 3X , I  2 , 5 X , I  3 , 3 X , 1 2 , I X , F6. 1 , 3X , F4. 1 , 5 X , I  2 , 4X , F4. 1 , 2X, F5 . 
11,1X,F6.1,2X,F6.1,2X,F6.1,2X,F5.1,2X,F6.1,1X,F8.1,2X,F6.1,2X,F7.1, 
21X.F6.0I 

KNTR   =  KNTR   +  1 
GC   TO  10 

C 

C  RECORD  THAT  THE  CHANGES  WERE  MADE. 
C 

140  IFIDUPL   .EQ.   0.0)   GO   TO  150 
WRITE    (6.1411  NBR 

141  FORMAT! 1H0.// .5X.27HNUMBER  OF  CARDS  REPUNCHED-  ,15) 
GO  TO  160 

150  WRITE  (6,151) 

151  FORMAT    (  1H1,  /  //  /,43X,  38HRECORD  OF   PROJECTION  CF    INVENTORY  DATA) 
WRITE   (6,152)    (FORETI I ), 1=1,3) 

152  FORMAT    ( 1H0./.43X,  16HS0URCE   OF  OATA-  ,3A8I 
WRITE   (6,153)    I  DATE! I ), 1=1, 3) 

153  FORMAT    I 1H0,/,43X, 18HDATA  ADJUSTED  TO-  ,3A8) 
WRITE    16,154)  NBR 

154  FORMAT   I 1H0./.5X.27HNUMBER  OF  CARDS  REPUNCHED-  .15) 
160  CALL  EXIT 

END 
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RESULTS  OF   PROJECTION  OF   INVENTORY  OAT  A 


6CGUS    NATIONAL  FOREST 


DATA   PROJECTED  TO  J  AN  2,  1970 


BLOCK     COMP     SUBC  SITE 


********«frOVERSTCRY***»*«**«* 
DBH        HT  TREES  AGE 


**3**4***UNDERST0RY*********« 
DBH  HT         TREES  AGE 


ORIG. 
DATE 


98 
99 
100 
100 
100 
100 
100 
100 
100 
101 
102 
102 
102 
202 
208 
207 
203 
203 
203 
203 
203 
203 
203 
202 
202 
202 


50.0 
50.0 


60.0 
60.0 
50.0 
70.0 
60.0 
50.0 
60.0 
50.0 


0.0 
0.0 
1.0 


0.0 
2.0 
2.0 
0.0 
2.0 
0.0 
0.0 
2.0 
0.0 


0.0 


2.0 


0.0 
2.0 


2.0 


12.2 
9.2 
12. 4 
1*.* 
0.0 
12.1 
10.2 
0.0 
10.7 
10.1 
5.1 
6.1 
3.8 
6.2 


11.8 
10. A 


13.8 
12.  4 


11.2 
12.1 


58.0 
83.0 
-0.0 


73.0 
87.0 


829.0 
125.0 
318.0 
2.0 
70.0 
-0.0 
2.0 
238.0 
-0.0 
204.0 
236.0 
658.0 
419.0 
599.0 
1212.0 
238.0 
580.0 
227.0 
204.0 
1994.0 
198.0 
238.0 
3.0 
101.0 


44.0 
476.0 


998. 
372. 
398. 

35. 
448. 
395. 
124. 
4959. 


121. 
149. 
124. 
134. 

-0. 
122. 
122. 


104.0 
50.0 
52.0 
34.0 
73.0 
129.0 
10.0 
105.0 
119.0 
21.0 
85.0 
125.0 
125.0 
144.0 
125.0 
121.0 
131.0 
59.0 
153.0 
151.0 
153.0 
81.0 
108.0 
1 15.0 
161.0 
85.0 
110.0 
144.0 
55.0 
115.0 
52.0 


0.0 
0.0 
0.0 


0.0 
51.0 


617. 
126. 


0.0 
0.0 


302.0 
0.0 
503.0 


290. 
2969. 
348. 


74.0 
-0.0 


0.0 
0.0 


0.0 
75.0 


0.0 
0.0 


51.0 
0.0 


8.9 
173.3 
-0.0 
364.4 
-0.0 
-0.0 
320.0 
-0.0 
-0.0 
-0.0 


-0.0 
-0.0 


17.8 
-0.0 
-0.0 


53.3 
-0.0 
66.7 


26.0 
0.0 


0.0 
1087.0 


1965. 
1968. 
1967. 
1966. 
1966. 
1965. 
1967. 
1968. 
1967. 
1968. 
1966. 
1968. 
1967. 
1966. 
1965. 
1966. 
1967. 
1965. 
1967. 
1969. 
1965. 
1965. 
1965. 
1965. 
1965. 
1968. 
1969. 
1965. 
1968. 
1969. 
1965. 
1965. 
1967. 
1965. 
1969. 
1965. 
1965. 
1968. 
1965. 
1965. 
1968. 
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About  The  Forest  Semce. 


As  our  Nation  grows,  people  expect  and  need  more  from 
their  forests— more  wood,  more  water,  fish  and  wildlife;  more 
recreation  and  natural  beauty;  more  special  forest  products  and 
forage.  The  Forest  Service  of  the  U .  S.  Department  of  Agricul- 
ture helps  to  fulfill  these  expectations  and  needs  through 
three  major  activitie s: 

•  Conducting  forest  and  range  research  at  over  75  loca- 
tions   ranging  from   Puerto   Rico   to   Alaska   to  Hawaii. 

•  Participating  with  all  State  forestry  agencies  in  co- 
operative programs  to  protect,  improve,  and  wisely  use 
our  Country' s  395  million  acres  of  State,  local,  and 
private  forest  lands  . 

•  Managing  and  protecting  the  1 87 -million  acre  National 
Forest  System. 

The  Forest  Service  does  this  by  encouraging  use  of  the 
new  knowledge  that  research  scientists  develop;  by  setting 
an  example  in  managing,  under  sustained  yield,  the  National 
Forests  and  Grasslands  for  multiple  use  purposes;  and  by 
cooperating  with  all  States  and  with  private  citizens  in  their 
efforts  to  achieve  better  management,  protection,  and  use  of 
forest  resources  . 

Traditionally,  Forest  Service  people  have  been  active 
members  of  the  communities  and  towns  in  which  they  live  and 
work.  They  strive  to  secure  for  all,  continuous  benefits  from 
the  Country' s  forest  resources . 

For  more  than  60  years,  the  Forest  Service  has  been  serv- 
ing the  Nation  as  a  leading  natural  resource  conservation 
agency . 
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